主题：关于菜单设计

试试

With CurrentTable
   Dim Str1 As String = "当前用户: " & User.Name & "   现在时间:" & Date.Now() & "  星期" & "日一二三四五六".Chars(Today.DayOfWeek)
     StatusBar.Message1 = Str1
End With