如何在打印报表中实现合计功能?

LJN 2000-05-18 03:22:00
我想在工资一栏(QuickReport控件)最后加一个合计如何实现?
...全文
259 9 打赏 收藏 转发到动态 举报
写回复
用AI写文章
9 条回复
切换为时间正序
请发表友善的回复…
发表回复
自由人 2000-06-23
  • 打赏
  • 举报
回复
可以使用http://202.98.184.26/上的报表处理系统(可以跟作者联系),
它会使您很吃惊的!
hony 2000-06-20
  • 打赏
  • 举报
回复
我看不如在table中增加一个计算字段,该字段设为各分项和, 出报表时直接就打了.
bpc 2000-06-15
  • 打赏
  • 举报
回复
在最后合计处放QRLABEL,在ONPRINT事件
编程:
var j:float;
begin
j:=0;
query1.first;//query1为QuickReport上的dataset
while not query1.eof do
begin
j:=j+query1.fieldbyname('工资').asfloat;
query1.next;
end;
QRLABEL.caption:=floattostr(j);
end;


LJN 2000-06-13
  • 打赏
  • 举报
回复
who能给我源码,我就把份都给他!
zhouzq 2000-05-18
  • 打赏
  • 举报
回复
在最后合计处放QRLABEL,在ONPRINT事件中把合计的计算公式传给VALUE !
heww 2000-05-18
  • 打赏
  • 举报
回复
程序加好后,赋给QRLabel,不麻烦吧
LJN 2000-05-18
  • 打赏
  • 举报
回复
不行啊,三条记录1000,1100,1200相加合计是3000,别告诉我这是可以接受的零星误差.
好像是把第一条记录的值加了三遍.其实这才是我提问的目的,光说在Summary里用QRExpr
是得不到分的.这点知识菜鸟我还是知道的.
styx 2000-05-18
  • 打赏
  • 举报
回复
可以放置一qrexpr,利用funtion--->SUM.定义要合计的字段即可

OK,GOOD LUCK
heww 2000-05-18
  • 打赏
  • 举报
回复
加一个QRBand,BandType设为rbSummary ,在工资的位置放一个QRExpr 或 QRLabel 显示你的计算值.

5,386

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧