以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]判断活动窗口失效  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=135090)
--  作者：liuqide
--  发布时间：2019/5/16 17:26:00
--  [求助]判断活动窗口失效
Dim frm As WinForm.Form = Forms.ActiveForm
If frm IsNot Nothing Then
    MessageBox.Show("活动窗口为:" & frm.Name)
Else
    MessageBox.Show("无活动窗口!" )
End If

我把上面这段代码放在beforeclosetable里执行，为什么提示无活动窗口，但窗口明明是打开的，窗口类型是主窗口，maintable=tables("当前表名")
--  作者：有点甜
--  发布时间：2019/5/16 19:31:00
--  

 

你的窗口没有获得焦点，就提示。