reporting services 常用到的函数

行号：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)