交替行或文本框的背景颜色

Question

由于Crystal没有数据网格，因此我使用VS2010 SQLServer的Crystal报表中的数据来自数据库，显示在文本框中。

我该如何替换那些文本框的背景颜色？

Answer 1

创建自定义公式：称之为“彩色化”：

//Color every other row as light tan (alter RGB to suit tastes) 
Function (Numbervar row, Optional Numbervar Color := RGB(239,235,220)) 

If Remainder(row,2)=0 Then 
    Color 
Else 
    crNoColor 

添加下面的详细信息部分的背景颜色的条件格式化公式：

Colorize(RecordNumber) 

//or over-ride color 
Colorize(RecordNumber, crSilver) 

您还可以通过将GroupNumber关键字与组头部分使用它：

Colorize(GroupNumber) 

如果你正在做什么花哨的瓦特/分组，您可能需要使用一个磨合的总公式：

//{@G1} 
WhilePrintingRecords; 
Numbervar i; 
i:=1+1; 

将此公式添加到组标题部分，然后将其禁用。

更改石斑鱼报头的条件式来：

WhilePrintingRecords; 
Numbervar i; 
Colorize(i); 

Answer 2

有两种方法可以做到这一点。第一个是最简单但最不健壮的。在详细信息部分，您可以添加背景颜色格式公式，如下所示：if recordnumber mod 2 = 0 then crgray else crnocolor

第二种是如果您需要对格式设置有更多控制权，比方说，如果您不显示详细信息部分，并且只是组页脚/头。它只涉及跟踪一个布尔变量。在要触发的部分中，将此添加到您的背景颜色格式公式中：

whileprintingrecords; 
booleanvar fliprow; 
fliprow := not fliprow; 
if fliprow then crgray else crnocolor