안녕하십니까?

쿼리테스트 라는 테이블에 lj,aaa,bbb,ccc,ddd라는 필드가 있고,



쿼리 sql에

select sum(aaa) aaa, sum(bbb) bbb, sum(ccc) ccc,sum(ddd) ddd

from 쿼리테스트

where lj >= :il1 and lj <= :il2

이렇게 작성을 하고..

폼에 쿼리 필드 aaa,bbb,ccc,ddd를 만들었답니다..

폼에 연산할 필드가 8개 있겠죠...

4개는 테이블 필드 4개는 쿼리 필드...

연산을 하기 위해서...

procedure TForm1.FormActivate(Sender: TObject);

var

imil:string;

begin

dmfm.table1.open;

with dmfm.query1 do begin

if active=true then

close;

imil:=copy(dbedit1.text,1,6);

parambyname('il1').asstring:=imil+'00월00일';

parambyname('il2').asstring := dbedit1.text;

open;

end;

end;



현재까지 작업한 테이블 필드들의 데이터 값이 쿼리 필드로 옮겨집니다..

그런데 폼이 열린 후에 작업한 테이블 필드의 값을 바로 쿼리 필드로 연산시키고

싶은데 after scroll에서 이벤트를 어떻게 주어야 할지 궁금합니다......

3일째 머리를 짜내도 않되네여...

고수님들 답변 부탁드립니다....