1. 개발/실행 플랫폼

(1) OS :win7

(2) 개발툴 : Delphi7

(3) 사용 Database : Firebird

2. 개발 중인 프로그램

3. 질문 내용
 

안녕하세요?

아래처럼 쿼리(Zeos) 콤포넌트의 OnCalcFields 이벤트에

코드를 집어넣었는데, 쿼리실행하면

if DataSet.Eof then begin ~end 안의 문이 3~4번 실행이 됩니다.

한번만 실행되어야 하지 않을까 싶어서요.

왜 그럴까요?

 

procedure TForm.qyCalcFields(DataSet: TDataSet);
begin

    if DataSet.Eof then begin

        DataSet.FieldByName('JanKeum').AsCurrency:=DataSet.fieldbyname('ReqKeum').AsCurrency-DataSet.fieldbyname('SuKeum').AsCurrency;

    end;

end;