Crystal Reports多重复值参数转数组的循环赋值实现求助

Crystal Reports没有原生循环语句，但可以通过数组扩展+批量赋值的方式高效实现需求，既保留独立数字参数的输入准确性，又避免逐个手动构造数组的繁琐：

实现步骤 #

1. 在Crystal Reports中创建一个公式字段（比如命名为PopulateBoxQtysArray）
2. 输入以下公式代码：

// 初始化空的数字数组
NumberVar Array BoxQtys := [];
// 扩展数组容量到12个元素
Redim Preserve BoxQtys[12];

// 批量为数组元素赋值，对应12个独立参数
BoxQtys[1] := If IsNull({?Box 1 Qty}) Then 0 Else {?Box 1 Qty};
BoxQtys[2] := If IsNull({?Box 2 Qty}) Then 0 Else {?Box 2 Qty};
BoxQtys[3] := If IsNull({?Box 3 Qty}) Then 0 Else {?Box 3 Qty};
BoxQtys[4] := If IsNull({?Box 4 Qty}) Then 0 Else {?Box 4 Qty};
BoxQtys[5] := If IsNull({?Box 5 Qty}) Then 0 Else {?Box 5 Qty};
BoxQtys[6] := If IsNull({?Box 6 Qty}) Then 0 Else {?Box 6 Qty};
BoxQtys[7] := If IsNull({?Box 7 Qty}) Then 0 Else {?Box 7 Qty};
BoxQtys[8] := If IsNull({?Box 8 Qty}) Then 0 Else {?Box 8 Qty};
BoxQtys[9] := If IsNull({?Box 9 Qty}) Then 0 Else {?Box 9 Qty};
BoxQtys[10] := If IsNull({?Box 10 Qty}) Then 0 Else {?Box 10 Qty};
BoxQtys[11] := If IsNull({?Box 11 Qty}) Then 0 Else {?Box 11 Qty};
BoxQtys[12] := If IsNull({?Box 12 Qty}) Then 0 Else {?Box 12 Qty};

// 返回数组供后续使用
BoxQtys;

优势说明 #

• 保留独立数字参数的输入校验：每个参数都是数字类型，系统自动拦截非数字输入，彻底避免SPLIT()方案的格式错误问题
• 代码结构清晰易维护：后续调整参数数量时，只需修改数组容量和对应赋值行即可
• 处理空值异常：通过IsNull判断确保数组元素不会出现NULL，避免后续计算报错

使用方式 #

在需要使用BoxQtys数组的其他公式或报表元素中，直接引用该公式字段即可，比如计算总数量：

Sum(NumberVar Array BoxQtys := {@PopulateBoxQtysArray}; BoxQtys)

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