找到方法了,但心里没底,保不准就关了不该关的窗口:
If Forms.Contains("记录窗口") AndAlso Forms("记录窗口").Opened Then '有记录窗口,并且窗口已打开
Dim nm As String
If Forms("记录窗口").Controls("rgd-1").Table IsNot Nothing Then '并且记录窗口控件绑定了表
nm = Forms("记录窗口").Controls("rgd-1").Table.Name '获取绑定的表名
End If
If nm > "" AndAlso Tables.Contains(nm) = False AndAlso System.Windows.Forms.Form.ActiveForm.Name <> "frmMain" Then
'表名不为空,而表不存在,说明含窗口表的窗口关闭了,记录窗口控件就绑定了不存在的表,因而弹出错误提示窗口。另外不要误把狐表主窗口给关了
Forms("记录窗口").Close '这个窗口中的记录窗口控件已出错,将其关闭,在表单击事件中重新打开,恢复正常。
Sendkeys.Send("%{F4}") '这时候,错误提示窗口就是当前活动窗口,只是不知其姓甚名谁,将其自动关闭。
End If
End If
[此贴子已经被作者于2015-1-31 19:22:41编辑过]