加入代码看看是否触发了事件
Forms("frmLogin").Text = e.Sender.Name
msgbox(e.Sender.Name)Select Case e.Sender.Name Case "_btnLogin" Forms("frmLogin").Close() Forms("frmMain").Open() ' 另一个窗体 Case "_btnCancel" Syscmd.Project.Exit() ' 退出FoxtableEnd Select