안녕하세요?
제 문제에 관심을 가져주셔서 감사합니다.
Table scan을 하면서 특정월에 따라 한 field에서 다른 field로 값을 복사하려 합니다.
var
lt:TSYSTEMTIME;
begin
GetSystemTime(lt);
Table1.Active := True;
case lt.wMonth of
3 : ......
6 : ......
9 : begin
while not Table1.EOF do begin
Table1.FieldByName('aaa').AsInteger :=
Table1.FieldByName('bbb').AsInteger;
Table1.Post;
end;
end;
12 : ...........
제 생각에는 post를 하면 다음 record로 포인터가 이동한다고 해서 위와 같이 작성했는데 잘 동작하지를 않습니다. 고수님들의 지적 부탁드립니다.
그럼 행복하세요...구벅♬
> 안녕하세요?
> 제 문제에 관심을 가져주셔서 감사합니다.
> Table scan을 하면서 특정월에 따라 한 field에서 다른 field로 값을 복사하려 합니다.
> var
> lt:TSYSTEMTIME;
> begin
> GetSystemTime(lt);
>
> Table1.Active := True;
>
> case lt.wMonth of
> 3 : ......
> 6 : ......
> 9 : begin
> while not Table1.EOF do begin
*ADD* Table1.Edit;
> Table1.FieldByName('aaa').AsInteger :=
> Table1.FieldByName('bbb').AsInteger;
> Table1.Post;
*ADD* Table1.Next;
> end;
> end;
> 12 : ...........
>
> 제 생각에는 post를 하면 다음 record로 포인터가 이동한다고 해서 위와 같이 작성했는데 잘 동작하지를 않습니다. 고수님들의 지적 부탁드립니다.
>
> 그럼 행복하세요...구벅♬
>