귀하는 손님 이십니다
로그인
회원가입
  
  델마당 공식 은행계좌
  하나은행 227-910235-83607
  예금주 이상국(운영진)
프로젝트 게시판
투표게시판
델마당소개
기초부터 활용까지! 델파이 교육 - 데브기어
질문과 답변 질문과 답변 입니다.
글내용 - 질문과 답변
 [질문]OnCalcFields 이벤트 처리 문의
마음이
(한희숙)
2020-10-23 오전 11:57:40
215회 조회


등록된 파일이 없습니다.

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;