帮我改一下代码（要让它显示：当前用户，部门，角色，当前时间）
With CurrentTable Dim Str1 As String = "当前用户:" & User.Name Str1 = Str1 & " 当前时间 " & Date.Now() StatusBar.Message1 = Str1End With
加好友 
发短信
Post By：2012/8/18 13:50:00 [显示全部帖子]
