请教一个水晶报表行的背景色的问题

[yingxiongmingduan]

麻烦各位，RT

[悔说话的哑巴]

这个还是比较简单的

[悔说话的哑巴]

这个就是行的之间的颜色
if recordnumber mod 2=0 then
Color (220, 225, 214)
else
crWhite

[lzsh0622]

设置水晶报表行背景色

[yingxiongmingduan]

谢谢，哑巴我知道你那个，我的意思是按照一种来分的

[悔说话的哑巴]

Select Case ({MyAccess.品 牌})
Case "SPIRIT"
formula = RGB (244, 126, 254)
Case "QUATTRO"
formula = RGB (142, 142, 255)
Case "JVC"
formula = crLime
Case Else
formula = DefaultAttribute
End Select
这个应该可以了吧

[yingxiongmingduan]

呵呵，明白，但是我是部门来分的，那不是要N个CASE

[yingxiongmingduan]

我就是想按部门来分，交叉就行了

[yingxiongmingduan]

比如说是：
A aa
B bb
C cc
达到这样的效果就可以了

[lzsh0622]

1、选择详细资料模块
2、选择节专家
3、右面颜色页
4、勾选择背景颜色
5、选编辑公式 : if RecordNumber mod 2=1 then crWhite else crSilver

[yingxiongmingduan]

汗，我想起来了，我的部门就是一个名字，如果是个数的话还需要统计或者求和出来

[lzsh0622]

定义全局变量 color=1, 类别0="";
当前行进入时与类别与类别0比较, 相同,颜色不变;不同换切换颜色,保存类别0.

[yingxiongmingduan]

在报表里怎么统计部门的怎么做，麻烦各位朋友了

[yingxiongmingduan]

[Quote=引用 11 楼 lzsh0622 的回复:]
定义全局变量 color=1, 类别0="";
当前行进入时与类别与类别0比较, 相同,颜色不变;不同换切换颜色,保存类别0.
[/Quote]
不是很明白，汗

[yingxiongmingduan]

就是说 我一个有N多部门，部门里有N多人，所以有点迷糊了

[阿泰]

用随机色试试

numbervar x_R;
numbervar x_G;
numbervar x_B;
numbervar x_GroupId;
if Groupnumber=1 then
    (
   x_GroupId:=1;
    x_R:=80;
    x_G:=80;
    x_B:=80)
else
    (
    if x_GroupId<>Groupnumber then
        (
        x_GroupId:=Groupnumber;
        x_R:=Int(Rnd*255);
        x_G:=Int(Rnd*255);
        x_B:=Int(Rnd*255)
        )
    else
        (
        x_R:=x_R;
        x_G:=x_G;
        x_B:=x_B
        );
    );
Color(x_R,x_G,x_B)

这样是每个组的颜色都不一样

如果只是组间隔换色，可以简单的设置为

if GroupNumber Mod 2=0 then
crblue
else
crred

[yingxiongmingduan]

我用的是水晶报表 不是VS自带的那种，要在公式那里设置才行

[阿泰]

这个就是水晶报表的公式。
放在字段右键，格式化字段，边框，勾选 颜色，编辑后面的公式框里
或者是在节专家里的背景色上。

[阿泰]

[yingxiongmingduan]

好的，我试试