以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]改代码  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=22607)
--  作者：lsf5138
--  发布时间：2012/8/18 13:50:00
--  [求助]改代码

帮我改一下代码（要让它显示：当前用户，部门，角色，当前时间）

With CurrentTable
    Dim Str1 As String = "当前用户:" & User.Name
    Str1 = Str1 & " 当前时间 " & Date.Now()
    StatusBar.Message1 = Str1
End With