主题：[求助]用2017版只要运行关闭项目的代码 就会报错（已解决）

如下图，这是什么错误？

 

只要用到 Syscmd.Project.Exit(False) 或 Syscmd.Project.Exit() 和 basemainform.Close  都会报错

 

此主题相关图片如下：qq图片20170628180436.png

 

 

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

点击浏览该文件:管理项目2.foxdb

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

点击浏览该文件:测试.rar

 

此主题相关图片如下：qq图片20170628143236.png

 你的是最新版了么？发布空项目是否有错？

 

 你代码里是不是用了反射？去掉对应代码、重新引用dll是否还有问题？

17年6月12号版本，我没调用外部DLL，现在删除了部分调用WINDOWS的代码在测试中，空项目暂时没测试

太早期的版本，第一次没办法自动升级，必须全部覆盖一次

还是不行，我现在是直接发布，没用在线升级，发布后直接运行的

 

            MessageBox.Show("该终端的授权信息验证失败,授权信息被非法修改,请联系开发者验证处理![错误代码:ZC02]","错误提示",MessageBoxButtons.Ok, MessageBoxIcon.Warning)
            Syscmd.Project.Exit(False)

 

运行到这里就报错，上面图的提示

 

 

BeforeCloseProject

 

 

With DataTables("临时订单明细")
    .DataRows.Clear() '清除所有行
End With
DataTables("临时订单明细").Save()
If Forms("登陆验证").opened Or vars("退出") = "是" Then
    Return
End If
If pause = False Then
    If Messagebox.Show("确定要退出吗?","提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = DialogResult.No Then '如果用户选择否
        e.Cancel = True '取消关闭项目
        Return
    End If
End If
vars("提示") = "系统退出中,请稍后……"
Forms("加载").show
Application.DoEvents()
If _czyzh <> "" Then
    DataTables("yhgl").SQLReplaceFor("zt", "离线", "dlzh = '" & _czyzh & "'")
End If
For Each dt As DataTable In DataTables
    dt.save
Next
Forms("加载").close

 

 

感觉都是去到关闭项目就会报错

Syscmd.Project.Exit(False)

 

如果改成下面呢？

 

Syscmd.Project.Exit()

 

或者

 

basemainform.Close

 

---------------------------------------如果你 BeforeCloseProject 不写代码呢？

我尝试了一种解决方案：

还是不行，BeforeCloseProject 不写代码 也是会报错

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

点击浏览该文件:测试.rar

 

此主题相关图片如下：qq图片20170628173241.png


此主题相关图片如下：qq图片20170628173257.png

 

我现在做了个测试的列子，直接关闭都会报错

我上传了例子，没啥代码的，直接点击关闭都会报错