Delphi中的Quickreport使用问题(100分)

我想在Quickreport的每页的最后加入一个“当页统计”行，不知如何添加，希望就是使用
Quickreport控件本身的功能来实现，请各位不吝赐教.

再QuickReport当中放入QRSysData， 然后设置QRSysData的Data为qrsPageNumber！
这样就可以计算当前页了！

在PageFooter中放一个QRlabel控件，在其Onprint事件中计算本页所涉及Dataset记录相应
栏位的统计值。

可以编程让quickreport实现页统计用qrlabel
设置一个单元内局部变量 PageSUM
在onStratpage时清零
在dataset的beforescroll事件中累加PageSUM
在qrlabel的onprint事件中设置value＝pagesum
就可以了

加一个 QRBand, Bandtype 设为 PageFooter, 在其中加一个 QRExpression,
其 Expression定义为要统计的表达式，如：Sum(table1.salary)就可以了。
QRExpression.restafterprint:=true//该页所有的合计
QRExpression.restafterprint:=false//到该页的所有累计
1.在 PageFooter 中加两个 QRExpression,每页总计的Expression放在在每页小计
的Expression下面,按你的要求排好版。每页小计的QRExpression.restafterprint
（打印一页后重置QRExpression的值)为true,每页总计的Expression.restafterprint
高为false.
2。最后一页的小计和总计的Expression放在Summary中,设置同上。
3。预览或打印即可。

在pagefooterband1的onbeforeprint事件中写：QRExpr1.ResetAfterPrint:=true;

加一个 QRBand, Bandtype 设为 PageFooter, 在其中加一个 QRExpression,
其 Expression定义为要统计的表达式，如：Sum(table1.salary)就可以了。
QRExpression.restafterprint:=true//该页所有的合计
QRExpression.restafterprint:=false//到该页的所有累计
1.在 PageFooter 中加两个 QRExpression,每页总计的Expression放在在每页小计
的Expression下面,按你的要求排好版。每页小计的QRExpression.restafterprint
（打印一页后重置QRExpression的值)为true,每页总计的Expression.restafterprint
高为false.
2。最后一页的小计和总计的Expression放在Summary中,设置同上。
3。预览或打印即可。

这个才正确。