如何动态关闭所有已经打开表单 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

我在BeforeShowErrorMessage 中加入以下代码后，再测试网络断线场景时

发现点“确定”后，只能闭关主程序，

那已经开启的子界面还在开启状态，且不能关闭。

请教专家：在执行Syscmd.Project.Exit() 之前

如何首先执行关闭所有已经打开的表单？

谢谢专家！

If vars("已弹出") = False Then

If e.message1.Contains("一般性网络错误") OrElse e.message1.Contains("不存在或拒绝访问") Then

e.Cancel = True

vars("已弹出") = True

MessageBox.Show("数据库服务器链接失败,请点击[确定]退出程序后,联系管理员处理!!", "温馨提示")

Syscmd.Project.Exit() 请教专家

End If

Else

e.Cancel = True

End If

主题：如何动态关闭所有已经打开表单