救命大虾先鞠躬了急急急急急急急急急急急死死死死死死死死菜菜菜菜菜菜菜菜菜菜

Question

PROCEDURE TQuickReport1.Quickreportneeddate(Sender:TQRCustomBand,var printband:boolean);
begin
     adoquery1.close;
     adoquery1.sql.clear;
     adoquery1.sql.add('select *  from ghlxz');
     adoquery1.open;
     adoquery1.first;
   if not adoquery1.eof then begin
     qrlabel1.caption:=adoquery1.fieldbyname('slsl').asstring;
     qrlabel2.caption:=adoquery1.fidldbyname('qldh').asstring;
     adoquery1.next;
     end;
   if adoquery1.recno mod 2=0  then QuickReport1.NewPage;
     qrlabel1.caption:=adoquery1.fieldbyname('slsl').asstring;
     qrlabel2.caption:=adoquery1.fieldbyname('qldh').asstring;
end;  在报表中打印完二条记录后,分出下页来,但分出的下页并无数据。
 若把qrlabel1,qrlabel2放在PAGEFOOTER BAND 中则下页数据和上页一样若把
  qrlabel1,qrlabel2放在RBDETAIL BAND 中则下页无数据，为什么啊？

Answer 1

你每一次都“adoquery1.first;”？怕不行吧。

Answer 2

if not adoquery1.eof then 
begin
     qrlabel1.caption:=adoquery1.fieldbyname('slsl').asstring;
     qrlabel2.caption:=adoquery1.fidldbyname('qldh').asstring;
    
   if adoquery1.recno mod 2=0  then QuickReport1.NewPage;
          adoquery1.next;
end;

Answer 3

你放成QRDBText，在BeforPrint里写就可以了