Crystal Reports 11：实现按客户分组的页脚独立分页计数

我刚好处理过类似的Crystal Reports页码需求，你的核心问题是内置页码功能无法按组统计总页数，直接重置页码会导致总页数显示异常。下面是具体的实现步骤，完全满足你在页面页脚显示“第n页，共m页”且按客户重置的需求：

一、前置准备 #

确保你已经按{客户ID}完成分组，并且在节专家的组页眉设置中勾选「插入分页符之前」——这样每个客户的记录都会从新页面开始，为页码重置打下基础。

二、创建自定义页码变量公式 #

我们需要用3个自定义公式来实现组内页码计数和总页数统计，所有公式都要加上WhilePrintingRecords;，因为这些变量是在报表打印阶段计算的，而非数据读取阶段。

1. 组内当前页码公式（GroupPageNumber） #

这个公式用来跟踪每个客户组内的当前页码，在新客户组开始时重置为1，每页递增：

WhilePrintingRecords;
Shared NumberVar CurrentPage;
// 当是第一条记录，或者当前记录属于新客户组时，重置页码为1
If OnFirstRecord Or {客户ID} <> Previous({客户ID}) Then
    CurrentPage := 1
Else
    CurrentPage := CurrentPage + 1;
// 返回当前页码值
CurrentPage

把这个公式拖到页面页脚（不需要显示，只是用来计算，你可以把字体设为白色或者隐藏它，只要确保它在节内）。

2. 组内总页数计算公式（GroupTotalPages_Calc） #

这个公式用来在每个客户组结束时，把当前组的总页数存储到变量中，需要放在组页脚：

WhilePrintingRecords;
Shared NumberVar CurrentPage;
Shared NumberVar GroupTotal;
// 当是当前客户组的最后一条记录时，把当前页码赋值给总页数变量
If OnLastRecordOfGroup({客户ID}) Then
    GroupTotal := CurrentPage;

如果不需要显示组页脚，你可以在节专家中勾选组页脚的「抑制显示」，但不要勾选「抑制空白节」，确保公式能正常执行计算。

3. 最终页码显示公式（PageDisplay） #

这个公式用来在页面页脚显示你需要的“第n页，共m页”文本，把它拖到页面页脚的合适位置：

WhilePrintingRecords;
Shared NumberVar CurrentPage;
Shared NumberVar GroupTotal;
// 格式化显示文本
"第" + ToText(CurrentPage, 0) + "页，共" + ToText(GroupTotal, 0) + "页"

三、关键设置调整 #

• 取消内置重置页码：在节专家的任何节（组页眉/组页脚/页面页脚）中，都不要勾选「之后重置页码」——我们用自定义变量完全控制页码，内置重置会干扰变量计数。
• 测试验证：预览报表时，每个客户的第一页应该显示「第1页，共X页」，后续页面依次递增，切换到下一个客户时页码自动重置为1，总页数也更新为该客户的总页数。

常见问题排查 #

如果出现总页数显示异常（比如一直显示1）：

• 检查GroupTotalPages_Calc是否放在组页脚，且组页脚没有被完全抑制（即使隐藏，也要确保节被渲染）。
• 确认{客户ID}分组正确，没有重复或空值导致组判断失效。

内容的提问来源于stack exchange，提问作者IJ76