用QuickReport，如何每页做一个合计？

Question

说清楚阿？对什么作合计？如果是字段的话，用TQRExpr阿—————————————————————————————————
MaximStr := '宠辱不惊，看庭前花开花落，去留无意；
             毁誉由人，望天上云卷云舒，聚散任风。';
if Not Assigned(I) then
  I := TI.Create(Nil);
I.Maxim := MaximStr;
I.Explain := '假如上述代码中出现“OA”、“3D”等字样，改为“=”或者去掉';
I.Desire := '加不加分随你';
—————————————————————————————————
    

Answer 1

嘻嘻，俺个人认为，你就是有点懒啊；
嘻嘻；
加一个QRBond QRBondS.BondType := QRPageFoot;
嘻嘻，再在这个QRBond上放一个TQRExpr ，写上Sum(FieldName);

Answer 2

对，对每一页的某些字段作合计。
我会用TQRExpr，可是“每一页”如何做？
做整个报表的合计是简单的。

Answer 3

QRPageFoot是出现在整个页面的最下面，当最后一页数据少时，PageFoot不能与其它的连在一起。
PageFoot俺也会。

Answer 4

嘻嘻，你可以判断记录嘛；
你动态变它的BondType不就成了，嘻嘻；

Answer 5

ihihonline(小小->充电中……) 
给我点代码看看?

Answer 6

合计你可以用qrdbtext或者qrdblabel
然后只需要在query的select 中加个sum(field)就可以了
如果要没也都显示，设置其linkbank属性

Answer 7

嘻嘻，这样吧，你有两个QuickRep；
判断是否完了，快完了的话，调用另一个；
嘻嘻

Answer 8

加一个 QRBand, 并设置为强迫换页 ForceNewPage -- True，
在该Band加统计控件 QRExpr1
下一步只要在QRBank  的 AfterPrint 事件中加代码：
QRExpr1.Reset;