我要在qrepot里做一个表格,请问qreport里如何实现显示6条记录后换页,不足6条添空记录至6条?谢谢!

Question

谢谢

Answer 1

設一個變xx
procedure TForm1.DetailBand1AfterPrint(Sender: TQRCustomBand;
  BandPrinted: Boolean);
begin
  xx:=xx+1;
  if xx=6 then 
  begin
   forceNewPage:= true; 
   xx:=0;
  end  
  else 
   forceNewPage:= False; 
  
end;

Answer 2

在需要打印数据的边条的BeforePrint事件中写：
  if ADOQuery1.RecNo mod 6 = 0 then
    QuickRep1.Printer.NewPage;

Answer 3

这两个要求要满足，我建议使用qrreport的 OnNeedData事件了，自己从数据库中取记录填充qrlabel,通过一个全局变量判断是否够6条如果满6条就 quickrep1.Printer.NewPage,
如果不够就给qrlabel赋空字符串。