8

背景

  • 我正在尝试对报告的详细信息行进行一些漂亮的验证。
  • 我有几个名为 Assert 语句的公式，如果它们未通过测试，则返回 false，如果通过则返回 true。

目标

  • 我想创建一个存储“违反规则”的数组，然后将它们显示在行尾的一个字段中，在名为“Broken Rules”的标题下

到目前为止我所做的

  • 在报表标题中创建了一个数组并将其初始化为一个空字符串数组
  • 创建了一个公式来评估每个规则，增加数组，并添加损坏的规则编号（这是每个规则的重复代码，没什么花哨的）。这将添加到我的详细信息显示上方的隐藏详细信息部分。
  • 创建了一个公式，它是规则损坏数组中元素的连接。这是与我的详细信息字段一起显示的公式。
  • 创建了一个公式以将规则损坏的数组设置为空。在我的详细信息显示之后，这将进入隐藏的详细信息部分。

问题

  • Crystal 似乎不允许使用我能找到的“end if”语句。
  • 因此，看来我只能评估一个 If 语句，而不是单个公式中的倍数。
  • 这意味着我不能做多个 if，每个规则一个。

示例代码

创建数组（名为 Init_StringVar_Array_RulesBroken 的公式）：

//@Init
//This goes into the report header
WhilePrintingRecords;

//initializes the array of broken rules which we'll add to during details
StringVar Array RulesBroken;
"";

递增数组和添加值的前三个规则评估示例（在名为 Increment_StringVar_Array_RulesBroken 的公式中）：

//@Increment
//Goes before the details section is displayed

//accesses the shared variable
WhilePrintingRecords;
StringVar Array RulesBroken;

//separate if statement for each assert statement

//01
if not {@Assert_01_IfCrewIsConstructionCrew_CBFlagShouldBeYesOrDirect} then
Redim Preserve RulesBroken[UBound(RulesBroken) + 1]; //extends the array to be able to hold one more item than it does currently
RulesBroken[UBound(RulesBroken)] := "01"; //adds the new string into the array

//02
if not {@Assert_02_IfCrewIsConstructionCrew_AndCBFlagIsDirect_WONumberShouldStartWithC} then
Redim Preserve RulesBroken[UBound(RulesBroken) + 1]; //extends the array to be able to hold one more item than it does currently
RulesBroken[UBound(RulesBroken)] := "02"; //adds the new string into the array

//03
if not {@Assert_03_IfCrewIsDesign_AndCBFlagIsDirect_WONumberShouldStartWithD} then
Redim Preserve RulesBroken[UBound(RulesBroken) + 1]; //extends the array to be able to hold one more item than it does currently
RulesBroken[UBound(RulesBroken)] := "03"; //adds the new string into the array

有任何想法吗？

  • Crystal Reports 中是否有 If / then / end if 功能？
  • 如果没有，Crystal Reports 中是否有针对此类事情的解决方法？我是否需要为每个公式创建多个公式并确保它们被放置在另一个或类似的东西之后？

提前感谢您的帮助！

4

1 回答 1

12

使用您拥有的代码执行此操作的最简单方法是将 if 块包装在括号中并用分号分隔它们：

//01
(
    if not {@Assert_01_IfCrewIsConstructionCrew_CBFlagShouldBeYesOrDirect} then
        Redim Preserve RulesBroken[UBound(RulesBroken) + 1];
        RulesBroken[UBound(RulesBroken)] := "01"
    else ""
);

//02
(
    if not {@Assert_02_IfCrewIsConstructionCrew_AndCBFlagIsDirect_WONumberShouldStartWithC} then
        Redim Preserve RulesBroken[UBound(RulesBroken) + 1];
        RulesBroken[UBound(RulesBroken)] := "02"
    else ""
);

//03
(
    if not {@Assert_03_IfCrewIsDesign_AndCBFlagIsDirect_WONumberShouldStartWithD} then
        Redim Preserve RulesBroken[UBound(RulesBroken) + 1];
        RulesBroken[UBound(RulesBroken)] := "03"
    else ""
);

我添加了指示 Crystal 如何解释块的缩进。

于 2012-04-19T01:54:52.423 回答