2019-1-16水晶报表技巧总结

说简单点,就是3个公式
AmountReset 用于清空页合计
RunningTotal 用于累加页合计
AmountDisplay 用于显示页合计.

在“字段资源管理器”对话框中选择“公式字段”，然后单击“新建”。
将公式命名为“RunningTotal”，然后单击“使用编辑器”。
出现公式工作室，公式编辑器处于活动状态。
将以下内容输入“公式”框：
WhilePrintingRecords;
CurrencyVar Amount;
Amount := Amount + {订单.订单金额};

在公式工作室中创建“AmountReset”：
WhilePrintingRecords;
CurrencyVar Amount := 0;

在公式工作室中创建“AmountDisplay”：
WhilePrintingRecords;
CurrencyVar Amount;
该公式可用于随时显示 Amount 变量的当前值。

pagenumber=1

后面的数字，可以是一个范围，填写什么数据，就抑制在那页的显示或者是那些页的显示。

按组分页：
直接在【节专家】中选择，组尾，在选择【在后面页新建页】即可。

按行分页：

在以下内容之前新建页：

IF Remainder (RecordNumber, PageNumber*5+1 )=0 then
True
Else
False
这是5行一页
在后面页新建页：
if onlastrecord then
false
else
if RecordNumber mod 10 =0 then
true
else
false
这是10行一页
后面一种方法好一点，前面可以因为总行数不同分的不整齐。

按组按行分：
【在后面页新建页】【在以下内容之前新建页】这两个地方填写公式是不一样的
报表使用了分组，一个组的数据会跨好几页，要单独显示某组显示到【第几页/共几页】
效果类似于：


这是一个综合工程，我们要逐步来拆解一下。

本文使用水晶报表2008操作，其余版本类似。

1：首先，是按照某个字段来分组
这个就不多说了，我用的是水晶报表自带示例库的产品表，用颜色字段进行分组。

2：每页显示5行数据，且每页的上都要显示组页眉，不同的组不能显示在同一页上。也就是组和组之间是的分离

（1）每页显示5行设置

如果是CR2008之前的版本，使用公式 RecordNumber Mod 5=0  
（2）每组上都要显示组页眉

（3）每个组单独占一页，不混合显示。
也就是1页显示5行，如果组a有1行，组b有2行，他们要分别占据1页，而不是合在1页上显示。

如果是CR2008之前的版本，使用公式 GroupNumber Mod 1=0  

3：使用运行时总和为每组数据单独编号


把这个运行总和字段做到模板上看看效果。分别拖到详细资料节和组页眉


可以看到，放在组页眉上的序号，其实就是在该页上第一条记录在组内的序号。

4：组内分页基本原理

现在我们能拿到单独的组内序号了，那么，怎么去用来分页呢。
想一下，假设我们每组记录数目为N（当然，N是变化的），如果存在多页的话，因为是5行一分页
那么对一个组来说，每页第一条的序号分别为1、6、11.。
也就是【5的倍数+1】。

那么我们的公式其实就出来了，
我们以每页组页眉上的那条为基准，也就是每页的第一条为基准，序号 除以 5，取整再 +1 即可。

公式如下


针对以的代码,找不到Roundup,重写：
numbervar x1;
numbervar x2;
numbervar p1;
numbervar p2;
//x1是每个组的数据条数 
x1:=  Count ({ DataTable3 .Job_No},{ DataTable3 .Job_No});
//得到总页码
p1:=round(x1/16+0.4);
//得到当前行组内序号，其实就是换后第一条的序号
x2:={#RTotal0};
//用序号外以每页的条数16，得到当前页码
p2:=round(x2/16+0.4);

if p2=0 then p2:=1;


totext(p2,0) +‘ / ‘ +totext(p1,0) 

效果如下


公式中的几个点特别说明一下
Count(字段,分组字段) 表示组小计计数
RoundUp(x)是向上取整，比如x=5则为5,5.1则为6.

‘第‘+ToText(PageNumber,0)+‘页,共‘+ToText(TotalPageCount,0)+‘页‘

这是可以显示总有几页，现在是第几页