放在状态栏吧在项目属性中的SystemIdle事件中,这是在右侧显示With CurrentTable Dim Str1 As String = "用户: " & User.NameStatusBar.Message3 = Str1End With