在“设计”视图中,右键单击报表边框外的设计图面,然后单击“报表属性”。
单击“代码”。
在“自定义代码”中键入代码。 报表运行时,代码中的错误会引发警告。 下面的示例创建一个名为 ChangeWord 的自定义函数,该函数可使用词语“Bicycle”替换“Bike”。
Public Function ChangeWord(ByVal s As String) As StringDim strBuilder As New System.Text.StringBuilder(s)If s.Contains("Bike") ThenstrBuilder.Replace("Bike", "Bicycle")Return strBuilder.ToString()Else : Return sEnd If End Function下面的示例演示如何在表达式中向此函数传递名为 Category 的数据集字段。
=Code.ChangeWord(Fields!Category.Value)
如果将此表达式添加到显示类别值的表单元,则只要该行的数据集字段中出现词语“Bike”,表单元值就会显示词语“Bicycle”。
更多资料:
1.向报表添加代码:http://msdn.microsoft.com/zh-cn/library/ms156028.aspx
2.向报表添加程序集引用:http://msdn.microsoft.com/zh-cn/library/ms155974
3.报表设计器的表达式中的自定义代码和程序集引用 :http://msdn.microsoft.com/zh-cn/library/ms159238#Embedded