行号：Rownumber(nothing)
当前日期：Today()
判断函数：iif()
奇偶数：RowNumber(Nothing) Mod 2
去掉HTML标签
点击“报表”菜单选择“报表属性”
在弹出来的窗体中选择“代码选项卡”
输入如下代码：
'Instantiate a stringbuilder object
Public s As New System.Text.StringBuilder()
Public Function byteArrayToString(ByVal b() As Byte) As String
Dim i As Integer
dim mystr as string
Try
s.length = 0
For i = 0 To b.Length-1
If i <> b.Length-1 Then
s.Append(chr(b(i)))
End If
Next
mystr = left(s.ToString, len(s.ToString)-1)
return ConvertRtfToTextRegex(mystr)
Catch ex as exception
return ex.tostring()
s.length = 0
End Try
End Function
Public Function ConvertRtfToTextRegex(ByVal input As String) As String
Dim returnValue As String = String.Empty
returnValue = System.Text.RegularExpressions.Regex.Replace(input, "\{\*?\\[^{}]+}|[{}]|\\\n?[A-Za-z]+\n?(?:-?\d+)?[ ]?", "")
Return returnValue
End Function
在需要替换的字段上面应用该方法，如：=code.byteArrayToString(Fields!TASK_RTF_NOTES.Value)