procedure Tsubulprtfm.QRep1NeedData(Sender: TObject;
  var MoreData: Boolean);
begin
  if prtq1.Eof then
    begin
      if rc < 9 then
         MoreData := true;
    end;

쿼리가 끝나고 레코드카운터가 9줄보다 작으면 빈 줄을 찍는 코딩입니다.

문제는 레코드가 4개라면

5줄은 빈줄이 찍혀야함에도 불구하고

쿼리의 마지막 레코드의 숫자를 가지고 빈줄을 채운다는 겁니다.

그래서 그 숫자를 qrexpr에서 합산을 합니다.

즉........

-------------------
               필드1    
-------------------
1             10
2             10                
3             10
4             10
5
6
7
8
9
10
--------------------
계            40
--------------------

이렇게 나와야 하는데

5번부터 10번까지도 10이라고 찍혀서 합계가 100이 되어버립니다.

어떻게 좋은 방법이 없을까요?

도움을 요청합니다. 부탁드립니다.