请教一个用QuickRep作报表,如何才能每页都有一个本页汇总 请教一个用QuickRep作报表,如何才能每页都有一个本页汇总我作的报表每次要打好几页,但我想每页都有一个本页的汇总,如本页的记录数汇总销售数量汇总 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 在pagefoot里加入一個表達式其公式為sum(切銷售量)然后將reset設為true 定義 sumA;procedure TForm1.DetailBand1BeforePrint(Sender: TQRCustomBand; BandPrinted: Boolean);begin sumA:=sumA+table1xx.value;end;procedure TForm1.PageFooterBand1BeforePrint(Sender: TQRCustomBand; BandPrinted: Boolean);begin Qrlabel1.Caption:= strtofloat(sumA); sumA:= 0end; 放一PAGEFOOTER,在BEFOREPRINT事件中赋值,在DETAIL的BEFOREPRINT事件中进行累加。 ActiveX Form里不能放ocx控件? 离职,算分!~ 我在delphi中安装了msbcode9.ocx控件 但面板中看不到 各位大侠 帮帮忙 Rxrichedit怎么设置行距,字距 关于ActiveXForm的若干问题。 各位高手问一个很菜的问题,在delphi中什末时候用create,原理是什末? fastreport sum 关于DBgrid单元格根据条件上色的问题 请高手解答~~ 请问怎么在NT下用Delphi实现自动关机?我试过ExitWindowsEx不好使,只在98下好使。 这样做有没有道理 打印信封 日期的问题,送分啦
其公式為sum(切銷售量)
然后將reset設為true
procedure TForm1.DetailBand1BeforePrint(Sender: TQRCustomBand;
BandPrinted: Boolean);
begin
sumA:=sumA+table1xx.value;
end;procedure TForm1.PageFooterBand1BeforePrint(Sender: TQRCustomBand;
BandPrinted: Boolean);
begin
Qrlabel1.Caption:= strtofloat(sumA);
sumA:= 0
end;
事件中进行累加。