打开项目后不显示当前用户,切换用户后显示同一个英文名是怎么回事啊,请教老师
With CurrentTable Dim Str1 As String Str1 =str1 & "欢迎使用姚记中小型企业管理统,本系统设计人:姚军 QQ:845701102 " Str1 =str1 & "当前登录: " & UserName Str1 =str1 & " 时间:" & Date.Now() & " 星期" & "日一二三四五六".Chars(Today.DayOfWeek) StatusBar.Message1 = Str1End With