Crystal Reports：如何在报表页脚生成组与子组成员对应清单

核心思路 #

无需为每个分组单独编写重复公式，通过全局字符串变量在分组遍历过程中累加子组成员值，最终在报表页脚统一输出，效果与分组区域预览一致。

分步实现 #

1. 初始化全局变量
   在报表头部添加公式字段（命名如@InitGroupVars），用于初始化存储成员的全局变量：

   WhilePrintingRecords;
   Global StringVar Group01_Members := "";
   // 多分组场景依次初始化：Global StringVar Group02_Members := "";
   

2. 累加分组子组成员
   在目标分组的详细资料节添加公式字段（命名如@AccumulateGroup01），实现每条子记录的成员值累加：

   WhilePrintingRecords;
   Global StringVar Group01_Members;
   // 替换{Table.SubMemberCode}为你的子组成员字段
   If Length(Group01_Members) > 0 Then
       Group01_Members := Group01_Members + ", " + {Table.SubMemberCode}
   Else
       Group01_Members := {Table.SubMemberCode};
   

   把该公式拖入对应分组的详细资料节，确保每条子记录都会触发累加逻辑。

3. 在报表页脚输出结果
   在报表页脚添加公式字段（命名如@ShowGroupMembers），拼接成要求的格式输出：

   WhilePrintingRecords;
   Global StringVar Group01_Members;
   "Group 01: " + Group01_Members;
   // 多分组场景可换行拼接：
   // "Group 01: " + Group01_Members + Chr(13) + "Group 02: " + Group02_Members;
   

额外优化 #

如果需要避免重复的子组成员，可修改累加公式加入去重判断：

WhilePrintingRecords;
Global StringVar Group01_Members;
// 替换{Table.SubMemberCode}为你的子组成员字段
If InStr(Group01_Members, {Table.SubMemberCode}) = 0 Then
(
    If Length(Group01_Members) > 0 Then
        Group01_Members := Group01_Members + ", " + {Table.SubMemberCode}
    Else
        Group01_Members := {Table.SubMemberCode}
);

关键注意点 #

• 所有公式必须开头加上WhilePrintingRecords;，确保公式在报表打印阶段执行，能正确遍历所有记录并累加值。
• 多分组场景只需对应新增全局变量、累加公式和输出拼接逻辑即可。

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