1、窗口的AfterLoad事件:
e.Form.Controls("Label2").text = "当前用户:" & User.Name & "当前表:" & CurrentTable.Name
2、项目的LoadUserSetting事件:
If Forms("xxx").Opened Then
Forms("xxx").Controls("Label2").text = "当前用户:" & User.Name & "当前表:" & CurrentTable.Name
End If