主题：[求助]项目发布成功后经常会跳出错误提示

Public _UserName As String '用户名

Public _UserGroup As String '用户分组

Public _UserTable As DataTable '用户表

Public delimg1 As Image = GetImage("delete.ico")

Public delimg2 As Image = GetImage("deleteRow.ico")

Public delimg3 As Image = GetImage("办理.ico")

Public jzbh As Image = GetImage("sync.ico")

Public pause As Boolean

Public zhtSave As Boolean '设置"工程合同基础数据"暂停或开启保存事件(BeforeSaveDataRow)

Public jzsj As Boolean '设置主合同加载时关闭支出合同基础数据加载条件

Public zchtjckg As Boolean '设置打开支出合同基础表加载树后关闭重新加载

Public yskkg As Boolean '设置打开应收款加载树后关闭重新加载

Public kmzhbkg As Boolean '设置打开科目组合表加载树后关闭重新加载

Public yfkkg As Boolean '设置打开应付款加载树后关闭重新加载

Public zjtzkg As Boolean '设置打开资金调整加载树后关闭重新加载

Public zzsldtykg As Boolean '设置打开增值税留底调用加载树后关闭重新加载

Public cbdykg As Boolean '设置打开成本留存调用加载树后关闭重新加载

Public nbwljzkg As Boolean '设置打开内部往来余额结转明细表加载树后关闭重新加载

Public nbwlkg As Boolean '设置打开内部往来余额结转明细表加载树后关闭重新加载

Public xmjtsdskg As Boolean '设置打开项目计提所得税表加载树后关闭重新加载

Public glfyhskg As Boolean '设置打开管理费用印花税表加载树后关闭重新加载

Public zjwlkg As Boolean '设置打开项目借款数据表加载树后关闭重新加载

Public Sub Grid_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs)

    Functions.Execute("MyGrid_Paint",sender,e)

End Sub

Public Function CheckValidationResult(sender As Object, certificate As System.Security.Cryptography.X509Certificates.X509Certificate, chain As System.Security.Cryptography.X509Certificates.X509Chain, errors As System.Net.Security.SslPolicyErrors) As Boolean

 ' 总是接受  

 Return True

End Function

Public delimg1 As Image = GetImage("delete.ico")

Public delimg2 As Image = GetImage("deleteRow.ico")

Public delimg3 As Image = GetImage("办理.ico")

Public jzbh As Image = GetImage("sync.ico")

改为

Public delimg1 As Image

Public delimg2 As Image

Public delimg3 As Image

Public jzbh As Image

然后到afteropenproject事件赋值

delimg1  = GetImage("delete.ico")

delimg2 = GetImage("deleteRow.ico")

delimg3 = GetImage("办理.ico")

jzbh  = GetImage("sync.ico")