按行累加 【转】

命题是这样的

如 有数据库中表A的结构及内容为:
ID CONTACT
----------------
101 A;
101 B;
101 C;
102 D;

水晶报表结果要为

----------------
101 A;B;C;
102 D;

实现方法如下：

步骤1：建立一个公式：xx，把 xx公式拖到详细资料节上。

whileprintingrecords;
global stringvar xx;
if onfirstrecord then
  xx:= {CONTACT字段}
else
    if {ID字段}=Previous ({ID字段}) then
      xx:= xx + ','+{CONTACT字段}
    else
      xx:= {CONTACT字段};

 
步骤2：节专家中，设置详细资料节，勾选“抑制显示”，编辑后面的公式为：

{ID字段}=next({ID字段})

即可实现效果。

 

转自：阿泰  http://www.cnblogs.com/babyt/