Tuesday, June 21, 2011

To add embedded code to a report

1. In Design view, right-click the design surface outside the border of the report and click Report Properties.

2. Click Code.

3. In Custom code, type the code. Errors in the code produce warnings when the report runs. The following example creates a custom function named ChangeWord that replaces the word "Bike" with "Bicycle".
Public Function ChangeWord(ByVal s As String) As String

Dim strBuilder As New System.Text.StringBuilder(s)

If s.Contains("Bike") Then

strBuilder.Replace("Bike", "Bicycle")

Return strBuilder.ToString()

Else : Return s

End If

End Function
The following example shows how to pass a dataset field named Category to this function in an expression:
If you add this expression to a table cell that displays category values, whenever the word "Bike" is in the dataset field for that row, the table cell value displays the word "Bicycle" instead.

No comments:

Post a Comment