水晶报表--页面小计

编写三个公式：

一、FeeCount，用于累加数据。放在详细信息

whileprintingrecords;
global CurrencyVar ptotal;
ptotal := ptotal + {DataTableYS.WaterFee};

 

二、SumFeeNum，用于最终显示小计信息，一般放在页脚。

whileprintingrecords;
global CurrencyVar ptotal;

 

三、FeeReset，用户将小计至0，与SumFeeNum一样放在页脚。

EvaluateAfter({@SumFeeNum});
global CurrencyVar ptotal;
ptotal:=0;

 

注意：whileprintingrecords 表示获取数据之后，显示打印数据之前。EvaluateAfter({@SumFeeNum})指执行完SumFeeNum后，再执行。因为要获取显示的小计信息（即运行完SumFeeNum）后再置零，才能保证保证小计信息能正常显示，否则小计始终显示0。