水晶报表进行页小计、固定行分页、分页中每页显示紧贴式页脚的方法

http://kongjian.baidu.com/xpj_jy/blog/item/168fcc5004b1e2828c543090.html

1.要进行页小计，需要在报表设计时建立3个公式，一个（SumRows)放在明细节内用于WhilePrintingRecords事件进行全局变量RowTotal累加，一个(PageTotal)放在页脚n（报脚n、组脚n、细节n)内用于反映RowTotal即时值,一个(Reset)放在PageTotal后用于下页前回零RowTotal;

SumRows公式:
WhilePrintingRecords
global RowTotal as currency
RowTotal= RowTotal + CCur({Order.Money})
formula=RowTotal

PageTotal公式:
WhilePrintingRecords
global RowTotal as currency
formula=RowTotal     
    
Reset公式:
EvaluateAfter ({@SumRows})
global RowTotal as currency
RowTotal=0
formula=0
    
2.固定行分页
要进行固定行分页需要在报表设计时添加参数PrintRows(设为数值型,默认值设10)用于打印前告诉报表打多少行，动态赋值代码：
Dim oFld As CRAXDRT.ParameterFieldDefinition
dim nRows as integer
nRows=8
For Each oFld In oReport.ParameterFields

If oFld.ParameterFieldName = "printrows" Then

oFld.AddCurrentValue nRows
Exit For
End If

Next
然后编辑明细节“在后面页新建页”公式内容加入：
if Remainder(RecordNumber, {?printrows}) = 0 then
if OnLastRecord then
formula=false
else
formula=true
end if
end if

3.最恼人的问题,分页中每页显示紧贴式页脚?只有组节和明细节可实现紧贴页脚!这里使用明细节替代页脚:
需要2个明细节,第一个用于正常显示明细记录,第二个用于代替页脚放置业脚内容,编辑第二明细节"抑制显示"公式,内容加入:
if Remainder(RecordNumber, {?printrows} ) <> 0 then
if OnLastRecord then
formula=false
else
formula=true
end if
end if