全部展开

全部折叠

按值格式化字段功能是Section.OnPrint属性中最常用到的一种。例如，在一个报表中按照产品分组并且根据内容进行排序。报表可以将实际库存量低于产品再订购水平（产品库存量低于再订购水平，表明该产品可能面临断货风险）的产品的产品名称字体改为红色粗体字符，从而避免额外增加实际可用库存量字段(实际可用库存量 = 实际库存量–产品再订购水平)。

本示例中，通过将产品名称改为红色粗体字符的方式来表明该产品的再订购水平低于产品库存量，此效果可以使用下面的脚本来实现：

Visual Basic

Dim script As String = _ 
  "If UnitsInStock < ReorderLevel Then" & vbCrLf & _ 
  "ProductNameCtl.ForeColor = RGB(255,0,0)" & vbCrLf & _ 
  "ProductNameCtl.Font.Bold = True" & vbCrLf & _ 
  "Else" & vbCrLf & _ 
  "ProductNameCtl.ForeColor = RGB(0,0,0)" & vbCrLf & _ 
  "ProductNameCtl.Font.Bold = False" & vbCrLf & _ 
  "End If" 
c1r.Sections.Detail.OnPrint = script 

C#

If UnitsInStock < ReorderLevel Then 
  ProductNameCtl.ForeColor = RGB(255,0,0) 
  ProductNameCtl.Font.Bold = True 
Else 
  ProductNameCtl.ForeColor = RGB(0,0,0) 
  ProductNameCtl.Font.Bold = False 
End If 

上述代码首先创建一个包含了VBScript事件控件的字符串，并且将该字符串赋值给当前区域的Section.OnPrint属性。

使用C1ReportDesigner实现：

当然，你也可以不编写代码而是使用C1ReportDesigner实现该功能。在Detail区域Section.OnPrint属性的VBScript脚本编辑框中，你只需要输入下面的脚本代码即可实现该功能。具体实现步骤如下所示：

1. 在Designer的属性窗口下拉菜单中选择Detail选项。此处显示的是Section中可用的属性。
2. 单击Section.OnPrint属性下方的空白单元格，然后单击下拉箭头，在列表中选择Script Editor选项
3. 在VBScript编辑器中，将下面的脚本输入即可：

If UnitsInStock < ReorderLevel Then
  ProductNameCtl.ForeColor = RGB(255,0,0)
  ProductNameCtl.Font.Bold = True
Else
  ProductNameCtl.ForeColor = RGB(0,0,0)
  ProductNameCtl.Font.Bold = False
End If


4.  单击OK按钮，关闭编辑器控件将在该Section即将显示的时候执行这段VBScript代码。此脚本根据"ReorderLevel"数据字段的值来设置报表中"ProductName"字段的Field.Font.Bold以及Field.ForeColor属性。如果产品库存量低于再订购水平值，则将该产品名称字段的字体设置为红色粗体字符。

产品网站：http://www.gcpowertools.com.cn  |  咨询热线：4006576008   |   ©2015 西安葡萄城