如何在Crystal Report中按列值实现详细节的并行显示？

我之前帮客户解决过几乎一模一样的需求，你说的这种按Id分组后，正数左列、负数右列并行显示，还要避免空白区域和串位的问题，确实不能靠自带的「Format with Multiple Columns」或者简单的条件抑制搞定，得换个思路——把正负值按顺序配对，让它们在同一行的左右区域对应显示。下面给你两种最实用的解决方案：

方法一：数据源预处理（推荐，简单高效） #

如果能修改报表的数据源SQL，这是最省心的办法。我们可以用SQL的CTE（公共表表达式）给每个Id下的正数、负数分别按顺序编号，再通过全外连接把同编号的正负值配对到同一行，没有对应值的就留空。

示例SQL查询：

WITH PositiveVals AS (
    -- 给每个Id下的正数按顺序编号
    SELECT 
        Id, 
        Value, 
        ROW_NUMBER() OVER (PARTITION BY Id ORDER BY Value) AS RowNum
    FROM YourDataSet
    WHERE Value > 0
),
NegativeVals AS (
    -- 给每个Id下的负数按顺序编号
    SELECT 
        Id, 
        Value, 
        ROW_NUMBER() OVER (PARTITION BY Id ORDER BY Value) AS RowNum
    FROM YourDataSet
    WHERE Value < 0
)
-- 全外连接配对同编号的正负值
SELECT 
    COALESCE(p.Id, n.Id) AS Id, 
    p.Value AS PositiveValue, 
    n.Value AS NegativeValue
FROM PositiveVals p
FULL OUTER JOIN NegativeVals n 
    ON p.Id = n.Id AND p.RowNum = n.RowNum
ORDER BY COALESCE(p.Id, n.Id), COALESCE(p.RowNum, n.RowNum)

报表设计步骤： #

1. 用上面的查询结果作为报表数据集。
2. 按Id字段创建分组，组头区域显示当前Id值。
3. 在详细节添加两个文本框：
   • 左侧文本框绑定PositiveValue，设置条件抑制：IsNull({PositiveValue})
   • 右侧文本框绑定NegativeValue，设置条件抑制：IsNull({NegativeValue})
4. 调整两个文本框的位置，确保在同一行，左右分开；同时设置详细节的高度为固定值，避免行高不一致导致对齐问题。

这样不管正负值数量是否相等，都会按顺序一一对应显示，多出来的值会单独占一行，完全不会出现串位或空白区域的问题。

方法二：纯Crystal报表内处理（无需修改数据源） #

如果不能修改数据源，我们可以用Crystal的变量和自定义公式来给正负值编号，再循环查找对应行号的值。

步骤1：添加组内计数变量 #

1. 在Id组的组头区域添加一个公式（命名为InitGroupVars），初始化计数变量：

WhilePrintingRecords;
NumberVar PositiveCount := 0;
NumberVar NegativeCount := 0;

2. 在详细节添加两个公式，分别给正数、负数编号：
   • 公式PosRowNum：

     WhilePrintingRecords;
     NumberVar PositiveCount;
     If {YourDataSet.Value} > 0 Then
         PositiveCount := PositiveCount + 1
     Else
         0
     

   • 公式NegRowNum：

     WhilePrintingRecords;
     NumberVar NegativeCount;
     If {YourDataSet.Value} < 0 Then
         NegativeCount := NegativeCount + 1
     Else
         0
     

步骤2：创建循环显示的详细节 #

1. 先创建一个公式MaxRowCount，计算当前组内正负值的最大行数：

WhilePrintingRecords;
NumberVar PositiveCount;
NumberVar NegativeCount;
Maximum(PositiveCount, NegativeCount)

2. 在Id组的组头添加一个运行总计，计算MaxRowCount的值（重置条件为“组更改时”）。
3. 修改详细节的重复次数：设置为{#MaxRowCount}（刚才创建的运行总计），这样详细节会循环显示对应次数。
4. 创建两个公式，分别获取当前循环行的正数和负数：
   • 公式CurrentPositiveValue：

     WhilePrintingRecords;
     NumberVar CurrentRow := RecordNumber; -- 当前循环行号
     Local NumberVar i := 0;
     Local NumberVar result := 0;
     Local BooleanVar found := False;
     
     For Each row In {YourDataSet.Value} 
         Where {YourDataSet.Id} = CurrentGroupValue({YourDataSet.Id}) And {YourDataSet.Value} > 0 Do
     (
         i := i + 1;
         If i = CurrentRow Then
         (
             result := row;
             found := True;
             Exit For;
         )
     );
     If found Then result Else Null;
     

   • 公式CurrentNegativeValue：

     WhilePrintingRecords;
     NumberVar CurrentRow := RecordNumber; -- 当前循环行号
     Local NumberVar i := 0;
     Local NumberVar result := 0;
     Local BooleanVar found := False;
     
     For Each row In {YourDataSet.Value} 
         Where {YourDataSet.Id} = CurrentGroupValue({YourDataSet.Id}) And {YourDataSet.Value} < 0 Do
     (
         i := i + 1;
         If i = CurrentRow Then
         (
             result := row;
             found := True;
             Exit For;
         )
     );
     If found Then result Else Null;
     

5. 在详细节添加两个文本框，分别绑定上面的两个公式，同样设置条件抑制NULL值，调整位置和行高即可。

注意事项： #

• 两种方法都要确保组内的正负值是按你需要的顺序排序的（比如在SQL里加ORDER BY，或者在报表组内设置排序规则）。
• 如果数据中有0值，记得提前处理（比如排除或单独显示），避免影响正负值的配对逻辑。
• 详细节的高度建议设置为固定值，防止因字段内容长短导致行对齐混乱。

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