一亩三分自留地

博客园 首页 新随笔 联系 订阅 管理

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

posted on 2008-08-22 16:07  Eugene Leung  阅读(1467)  评论(2编辑  收藏  举报