물리학부생 wrote:
안녕하세요?
제 문제에 관심을 가져주셔서 감사합니다.
Table scan을 하면서 특정월에 따라 한 field에서 다른 field로 값을 대입하려 합니다.
var
lt:TSYSTEMTIME;
begin
GetSystemTime(lt);
Table1.Active := True;
case lt.wMonth of
3 : begin
Table1.First;
while not Table1.Eof do begin
Table1.Edit;
Table1.FieldByName('aaa').asInteger := 0;
Table1.FieldByName('bbb').asInteger := 0;
Table1.FieldByName('ccc').asInteger := 0;
Table1.FieldByName('ddd').asInteger := 0;
Table1.FieldByName('eee').asInteger := 0;
Table1.Post;
Table1.Next;
end;
end;
6 : ...........
end;
위와 같이 코딩했는데...왜 3월이 되어 이벤트가 발생했는데도 데이터가 변경되지 않을까요?
무슨 문제인지 고수님들의 지적 부탁드립니다.
그럼 행복하시구요....구우벅 ^^*♬
물리학부생 wrote:
> 물리학부생 wrote:
> 안녕하세요?
> 제 문제에 관심을 가져주셔서 감사합니다.
> Table scan을 하면서 특정월에 따라 한 field에서 다른 field로 값을 대입하려 합니다.
> var
> lt:TSYSTEMTIME;
> begin
> GetSystemTime(lt);
>
> Table1.Active := True;
> case lt.wMonth of
> 3 : begin
> Table1.First;
> while not Table1.Eof do begin
> Table1.Edit;
> Table1.FieldByName('aaa').asInteger := 0;
> Table1.FieldByName('bbb').asInteger := 0;
> Table1.FieldByName('ccc').asInteger := 0;
> Table1.FieldByName('ddd').asInteger := 0;
> Table1.FieldByName('eee').asInteger := 0;
> Table1.Post;
> Table1.Next;
> end;
> end;
> 6 : ...........
> end;
>
> 위와 같이 코딩했는데...왜 3월이 되어 이벤트가 발생했는데도 데이터가 변경되지 않을까요?
>
> 무슨 문제인지 고수님들의 지적 부탁드립니다.
>
> 그럼 행복하시구요....구우벅 ^^*♬
에러가 발생하신게 아니라면... table을 수정하는 부분의 코딩이 확실히 실행이 되는지 확인해 보셨나요?
에러가 발생하지 않았다면 당연히 수정이 되어야하는게 아닌가해서요. 그럼..