以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]Syscmd.project.Exit(false) 出错  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=102104)

--  作者:lzzhx
--  发布时间:2017/6/13 14:31:00
--  [求助]Syscmd.project.Exit(false) 出错
老师:我在AfterOpenproject事件中有一段代码如下:

        dlzk = "正常登录"
        Forms("登录窗口").Open()
        \'在登录窗口中按退出键不登录 ,置 dlzk = "000"
        If dlzk = "000" then
            Syscmd.project.Exit(false)
            Return
        endif


现在出现的问题是,如果登录时选择退出,程序就会出现白屏和一个出错窗口

--  作者:lzzhx
--  发布时间:2017/6/13 15:10:00
--  
以前的老程序退出时正常,新程序在登录窗口和AfterOpenproject事件代码都一样,为什么出错了,该从什么地方查找呢
--  作者:有点色
--  发布时间:2017/6/13 15:22:00
--  
 升级到最新版,我测试代码没问题。
--  作者:lzzhx
--  发布时间:2017/6/13 15:32:00
--  
老师:找到原因了,我在登录窗口的关闭前事件中也执行了一次Syscmd.project.Exit(false),删除后就正常了。

但是很奇怪,我并没有升级狐表系统,但以前备份的程序中登录窗口和AfterOpenproject事件代码和现在的都一样,执行老程序时却不报错

--  作者:有点色
--  发布时间:2017/6/13 15:53:00
--  
 新版改过 Syscmd.project.Exit 的内容