Q&A

  • Table scan을 하면서 record의 A field에서 B field로 값을 복사?
안녕하세요?

제 문제에 관심을 가져주셔서 감사합니다.

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로 포인터가 이동한다고 해서 위와 같이 작성했는데 잘 동작하지를 않습니다. 고수님들의 지적 부탁드립니다.



그럼 행복하세요...구벅♬



1  COMMENTS
  • Profile
    허춘 2000.08.16 07:15
    물리학부생 wrote:

    > 안녕하세요?

    > 제 문제에 관심을 가져주셔서 감사합니다.

    > 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로 포인터가 이동한다고 해서 위와 같이 작성했는데 잘 동작하지를 않습니다. 고수님들의 지적 부탁드립니다.

    >

    > 그럼 행복하세요...구벅♬

    >