- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]关闭窗口后无法返回主界面 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=52096)
-- 发布时间：2014/6/9 10:44:00
-- [求助]关闭窗口后无法返回主界面
创建“主界面”空表，创建“主界面”窗体，并在属性中加入背景图片，所有者表为“主界面”表。再创建“铸造”窗体，所有者表为“生产情况跟踪表”，在铸造窗体的AfterClose事件中填写代码
MainTable = Tables("主界面")
Forms("主界面").open()
但是无法实现在关闭“铸造”窗体后直接回到主界面，依然显示生产情况跟踪表为活动窗口。
单独创建按钮，加入上面两行代码确可以正常回到主界面，不知道是哪里弄错了，感觉像是事件没有被激活一样。请高手指点
-- 发布时间：2014/6/9 10:47:00
--
代码试试写在beforeClose事件
-- 发布时间：2014/6/9 10:49:00
--
可能不触发该事件,你利用MessaGEBOX.SHOW弹出调试一下看看. 主窗口可能不触发这个事件,可以尝试用beforClose 事件来做
-- 发布时间：2014/6/9 10:50:00
--
测试了一下，有效。实在不行，做个例子发上来看看。
-- 发布时间：2014/6/9 11:03:00
--
beforeClose事件试了一下，还是不行。或许问题在其他地方。上传例子了，请再帮我看看
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.rar |
-- 发布时间：2014/6/9 11:06:00
--
测试你的例子,正常运行. 关闭铸造窗体可以返回到主界面
-- 发布时间：2014/6/9 11:15:00
--
测试了一下，是你菜单代码的问题
Dim frm As WinForm.Form
frm = Forms("铸造")
frm.Open()
MainTable = Tables("生产情况跟踪表")
改成
MainTable = Tables("生产情况跟踪表")
Dim frm As WinForm.Form
frm = Forms("铸造")
frm.Open()