运行时错误 364 对象被卸载

Question

运行时错误 364 对象被卸载这个原因是什么渴求大虾们来看看

Answer 1

我也不知道哪句话出错，只能估计因为这是xxxx.exe程序在用户机器上运行的我找找代码看看

Answer 2

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
我觉得是黑色部分出现错误了

Answer 3

颜色怎么不显示再来一把
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