主题：支持英文

我的主窗体里有菜单，菜单里有Exit，这段代码在Exit执行没报错，正常退出。所以我想：当执行主窗体的afterclose的时候，触发菜单的Exit事件，这样就相当于执行Exit。那我该如何写代码？

你写什么代码关闭主窗口的？直接点击X按钮？AfterClose不会导致报错，实例发出来。

 

老师，是红色的部分造成错误，我是直接点击X按钮实现退出，红色部分导致错误。应该怎样写终止程序代码？

 

Dim cmd2 As New SQLCommand
 
cmd2.C
   
cmd2.CommandText="UP DATE {user} set [Login]=False Where [Name]='" & _UserName & "'"
cmd2.ExecuteNonQuery  '------------------------

Syscmd.Project.Exit()

写到BeforeCloseProject事件，去掉红色的代码

请教老师，在afteropenproject执行 baseMainform.Close，在use rmangement窗体里的close按钮执行click事件Forms(“use rmangement”).close,结果整个程序退出，只有这一句，没有Syscmd.Project.Exit()，这是为什么？如果注销baseMainform.Close 这句就没有上述现象。 其他窗体都可以正常执行close方法，整个程序都不退出。为什么只有use rmangement窗体出现这个问题。这个窗体是模式窗体。请问怎么解决？谢谢。

 

 

 

1、你这个窗口beforeclose、afterclose都写了什么代码？把代码删除能否正常？

 

2、做个具体的例子发上来测试。

我在afteropenproject执行下面代码，打开窗口2，点击click 结果，程序全部退出，可是click事件里，没有退出程序的代码。为什么？谢谢指导。 

 

 Forms("窗口2").open
baseMainform.Close

 

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目26.zip

窗口2按钮打开窗口1、把窗口2关闭。

 

当窗口2关闭的时候（模式窗口），会继续执行afteropenProject的basemainform.close的代码。

 

如果你窗口1是模式窗口，open之后，窗口1要close才会执行到 forms("窗口2").close但你窗口1不是模式窗口。

可是在正式发布程序是，我必须执行basemainform.close，否则出现foxtable的窗体，那我该如何解决问题？

肯定必须执行basemainform.close啊，不然foxtable怎么关闭？

 

现在你问题是什么？关闭foxtable的时候，就报错？