运行时错误 364 对象被卸载

[SP12345678902]

运行时错误 364 对象被卸载

这个原因是什么

渴求大虾们来看看

[SP12345678902]

怎么上传图片啊

请教

[孤独剑_LPZ]

都2个小裤衩了,还不知道怎么上传图片?
在我的空间>相册里上传,帖子里给连接即可

[SP12345678902]

[SP12345678902]

出错的截图如上

[孤独剑_LPZ]

只看这个看不出来什么,执行的哪句出错的,上段代码吧

[孤独剑_LPZ]

估计是缺少了某文件，你需要把软件卸载干净，然后重新安装就OK 了

[SP12345678902]

我也不知道哪句话出错，只能估计

因为这是xxxx.exe程序在用户机器上运行的

我找找代码看看

[SP12345678902]

Private Sub cmdDownload_Click()
Dim webDs As New Yum_BOH_DS_Dll.DS_Interface
Dim success As Long
    
    Call mdlPublic.SystemAudit(False)
    Call mdlPublic.SystemAudit(True, cmdDownload.Caption)
    success = webDs.DS_GetNetworkStatus("F", "IMS")
    If success = 0 Then
        Load frmNewDownload
        frmNewDownload.Show vbModal
        If mdlFunction.CheckDBAvailable = True Then
            '自动更新价格
            If mdlBrandSwith.UpdateProductTalbe(gintBrandID) = False Then
                MsgBox "系统自动更新单价失败！" & vbCr & "请联系Helpdesk。", vbCritical, gDialogTitle
            End If
        End If
    Else
        MsgBox "餐厅必须在连网状态下方可进行IMS数据下载操作！", vbCritical, gDialogTitle
    End If    
End Sub

我觉得是黑色部分出现错误了

[SP12345678902]

颜色怎么不显示

再来一把

Private Sub cmdDownload_Click()
Dim webDs As New Yum_BOH_DS_Dll.DS_Interface
Dim success As Long
    
    Call mdlPublic.SystemAudit(False)
    Call mdlPublic.SystemAudit(True, cmdDownload.Caption)
    success = webDs.DS_GetNetworkStatus("F", "IMS")
    If success = 0 Then
        '下面了2句话我很怀疑
        Load frmNewDownload
        frmNewDownload.Show vbModal
        If mdlFunction.CheckDBAvailable = True Then
            '自动更新价格
            If mdlBrandSwith.UpdateProductTalbe(gintBrandID) = False Then
                MsgBox "系统自动更新单价失败！" & vbCr & "请联系Helpdesk。", vbCritical, gDialogTitle
            End If
        End If
    Else
        MsgBox "餐厅必须在连网状态下方可进行IMS数据下载操作！", vbCritical, gDialogTitle
    End If    
End Sub