납품 이라는 필드와 누계라는 필드가 있습니다.



Nappum Nuge

3 3

3 6

3 9

3 12

3 15

. .

. .

. .



이런형태로 증가하게되는데요. 현재 원하는 것은 디비그리드상의 Nappum 필드의

값을 바꾸면 바로바로 Nuge 필드의 값들이 갱신 되어야 합니다.



저 프로그램의 그쪽 부분의 소스는



procedure Tjun_insert.Query4CalcFields(DataSet: TDataSet);

begin



Query4Nuge2.Value := inttostr(strtoint(Query4Nappum.Value) + NSum);

NSum := strtoint(Query4Nuge2.Value);



end;



이렇게 Calc 이벤트에서 처리했습니다.. NSum 은 전역 변수로 선언해두었습니다.

값은 0 이구요.



이렇게 하니 처음에는 계산이 되기는 한데 문제가 증가치가 멋대로 증가해버리는군요.

마지막 누계치에 + 되는 것 같습니다. 또 한가지 문제는 스크롤바를 이동만 시켜도

증가가 되버려요. 그래서 스크롤 이벤트 부분에는 NSum 값을 0 으로 셋팅해주었습니다.



또 한가지의 문제가 등장합니다. 폼의 보이는 부분까지만 스크롤 이동되기때문에

디비그리드의 보이는 부분만 제대로 값이 표시되고 안보이는 아랫부분은 문제가

생깁니다..



고수님들은 어떤 방법을 사용하시는지 조언좀 주시기 바랍니다.

읽어주셔서 감사합니다. 그럼 이만.