一亩三分自留地

Report Properties  -> Code 中

必须用Shared定义

Shared Function Hello() As String

     Return "Hello"

End Function

使用时

=Code.Hello()

如果需要参数，一定注意处理

Shared Function Hello(ByVal obj As Object) As String --定义时可以使用Object

     Dim Name As String

     Name = CSTR(obj)    --使用CSTR   CDEC   CINT  等转换

     Return "Hello " + Name

End Function