全局代码
Public _UserName As StringPublic _UserGroup As String
systemidle 代码
With CurrentTable Dim Str1 As String = "用户: " & _usernameStatusBar.Message3 = Str1End With
状态栏无显示是怎么回事呢?