主题：[求助]最新版发布的程序部分电脑提示错误

一直在用的程序，狐表升级到10月23日版，以前好好的，现在部分电脑会有这样的提示，点掉后，进去也可以用，是否有其它问题，目前还不清楚，但是有些电脑并不会有这样的错误提示。不知道要怎么排查问题了，以前是没有这样错误提示的。

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


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

哪为啥有的电脑不提示这个错误？比如我手上的两台电脑都不提示这个错误，但部分客户端就提示这个错误，而且这里是没有改过的代码，运行有两年了，以前都没有错误提示的啊。

这个错误是点确定按钮后出现的，而且只有部分客户端会出现。确定按钮的代码如下：

'**********切换数据源************
Dim ljip As String = e.Form.Controls("txtIP").Value
Dim s As String = "Provider=SQLOLEDB.1;Password=Server2008;Persist Security Info=True;User ID=sa;" & _
"Initial Catalog=excel;Data Source=" & e.Form.Controls("txtIP").Value & "\MSSQLSERVER," & e.Form.Controls("txtPort").Value
If Connections.TryConnect(s) = False Then
    MessageBox.Show("数据源无法连通!")
    Return
Else
    Dim cn As Connection = Connections("wjexcel")
    If cn.ConnectionString <> s Then
        If Connections.Contains("wjexcel") Then
            Connections.Delete("wjexcel")
        End If
        Connections.add("wjexcel",s)
    End If
End If
'******加载用户,数据登记,权限表*******
Dim bn() As String = {"FtUser","tabRepData","FTtabQX","FTtabQXBt","FTcaidanQX","FTdaohangQX","FTbdkjQX","FT个人" & _
"便签","Ft自动编码规则表","Ft用到自动编码的表和列","Ft自动编码已编最大号","Ft临时编码表","流程设置表","流程进" & _
"度表","流程临时表","流程数据主表","流程数据明细"}
vars("stop") = True
For i As Integer = 0 To bn.Length - 1
    If DataTables.Contains(bn(i)) = False Then
        DataTables.Load(bn(i))
        Tables(bn(i)).Visible = False
    End If
Next
vars("stop") = False
Functions.Execute("sjbtldafzsx")
'If DataTables.Contains("Ft自动编码规则表") = False Then
    'DataTables.Load("Ft自动编码规则表|Ft用到自动编码的表和列|Ft自动编码已编最大号|Ft临时编码表")
    'Tables("Ft自动编码规则表").Visible = False
    'Tables("Ft用到自动编码的表和列").Visible = False
    'Tables("Ft自动编码已编最大号").Visible = False
    'Tables("Ft临时编码表").Visible = False
'End If
'************找到对应用户名***************
Dim UserName As String = e.Form.Controls("txtUserName").Value
Dim dr As DataRow
If UserName = ""  Then
    Messagebox.show("请输入用户!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    Return
End If
dr = DataTables("FtUser").SQLFind("[FtID] = '" & UserName & "'")
If dr Is Nothing Then
    Messagebox.show("此用户不存在!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    Return
End If
If e.Form.Controls("txtPassword").Value = dr("Password") Then
    _UserFtID = UserName
    _UserName = dr("Name")
    _UserGroup = dr("Group")
    _UserSGroup = dr("上层部门")
    _DeptID = dr("DeptID")
    _OperID = dr("OperID")
Else
    Messagebox.show("密码错误!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    Return
End If
'生成数据表
Dim cmd As New SQLCommand
cmd.C
cmd.CommandText = "Sel  ect  OperID,{tabDepartment}.DeptID,{tabDepartment}.sName,{tabRole}.RoleID,{tabRole}.sName " & _
"Fr  om ({tabRoleOper} Inn  er J  OIN {tabDepartment} ON {tabDepartment}.[DeptID] = {tabRoleOper}.[DeptID]) Inner JOIN " & _
"{tabRole} ON {tabRole}.[RoleID] = {tabRoleOper}.[RoleID] Where OperID = " & _OperID
_URGTable = cmd.ExecuteReader()
For Each urgdr As DataRow In _URGTable.DataRows
    _UserRGroups.add(urgdr("sName") & "." & urgdr("sName1"))
    If _UserDeptIDs.Contains(urgdr("DeptID")) = False Then
        _UserDeptIDs.add(urgdr("DeptID"))
    End If
Next
'***********登陆openQQ和系统**************
If QQClient.Ready Then
    MessageBox.show("QQClient已经启动,请先关闭","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    Return
End If
QQClient.ServerIP = e.Form.Controls("txtIP").Value  '指定服务器IP地址
QQClient.ServerPort = e.Form.Controls("QQPort").Value  '指定服务器端口
QQClient.UserName = _UserSGroup & "." & _UserName'指定登录用户名
QQClient.Password = e.Form.Controls("txtPassword").Value
If QQClient.Start() = True '如果登录成功
    Dim msg As String =  "恭喜,OpenQQ登录成功!"
    If QQClient.ServerMessage > "" Then '如果服务器返回了欢迎信息
        msg = msg & QQClient.ServerMessage
    End If
    popMessage(msg,"提示",PopiconEnum.Infomation,2)
    e.Form.Close
Else '如果登录失败,显示服务器返回错误信息
    PopMessage("QQClient登录失败,原因:" & vbcrlf & QQClient.ServerMessage,"提示",PopiconEnum.Error,5)
    Return
End If
'*****************************************
'**************系统菜单是否显示*********
Dim y As Boolean
For Each js As String In _UserRGroups
    Dim bmjs() As String = js.Split(".")
    If bmjs(1) = "《系统管理》" Or bmjs(1) = "《设计》" Then
        y = True
    End If
Next
If y = True Then
    RibbonTabs("SM").Groups("DesignFun").Visible = True
    RibbonTabs("SM").Groups("SqGn").Visible = True
    QAT.Items("Save").Visible = True
Else
    RibbonTabs("SM").Groups("DesignFun").Visible = False
    RibbonTabs("SM").Groups("SqGn").Visible = False
    QAT.Items("Save").Visible = False
End If
'***********************************
'************检测是否有到期工作便签*********
Dim bqdr As DataRow = DataTables("FT个人便签").SQLFind("人员ID = " & _OperID & " and 预计完成日期 <= '" & Date.Today & "'and 预计完成日期 <>'' and 结束日期 = ''")
If bqdr IsNot Nothing Then
    Forms("未读消息提示").Open()
    Forms("未读消息提示").Text = "有到期工作便签提醒"
    Forms("未读消息提示").Controls("来源").text = "便签"
    Forms("未读消息提示").Controls("来源").Visible = False
    Forms("未读消息提示").Controls("Label1").text = "你有已到期工作便" & vbcrlf & "  签,请及时确认!"
End If
'**********读取硬件信息*******************
If ljip = "192.168.1.123" Then
    Functions.AsyncExecute("读取电脑硬件")
End If

这样改后测试可以了，这个啥时候改特性了？而且为啥一部分行，一部分不行啊。

发现一个非常奇怪的现像，还是这个错误，用我直接发布出来的程序，打开是没有问题，不会提示的，但是，通用自动升级的方式升级上来的，这个错误还是存在的，并没有改善。是不是自动升级的打包程序出问题了？

升级是肯定升级成功了，因为我登陆界面就把每次升级的日期加进去了，登陆时显示的日期是最新的。

此主题相关图片如下：1.png
这里的日期是对的。

然后前面提到的错误会连接出来两次，如下图

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


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

 

最后提示结果如下图
此主题相关图片如下：4.png

弹出代码我加在了此处

QQClient.ServerIP = e.Form.Controls("txtIP").text  '指定服务器IP地址Value
QQClient.ServerPort = e.Form.Controls("QQPort").text  '指定服务器端口Value
QQClient.UserName = _UserSGroup & "." & _UserName'指定登录用户名
QQClient.Password = e.Form.Controls("txtPassword").text
If QQClient.Start() = True Then '如果登录成功
    msgbox("ip=" &QQClient.ServerIP  & ",port=" & QQClient.ServerPort)
    Dim msg As String =  "恭喜,OpenQQ登录成功!"
    If QQClient.ServerMessage > "" Then '如果服务器返回了欢迎信息
        msg = msg & QQClient.ServerMessage
    End If
    popMessage(msg,"提示",PopiconEnum.Infomation,2)
    e.Form.Close
Else '如果登录失败,显示服务器返回错误信息
    PopMessage("QQClient登录失败,原因:" & vbcrlf & QQClient.ServerMessage,"提示",PopiconEnum.Error,5)
    Return
End If

不通过升级，不会提示错误，正常使用。

代码如下：

'*****判断ftbqtemp临时目录是否存在
If FileSys.DirectoryExists(ProjectPath & "\FTbqtemp") = False Then '如果目录不存在
    FileSys.CreateDirectory(ProjectPath & "\FTbqtemp")  '则创建
End If
If Forms("个人便签").Opened Then
    Dim ftp As New FTPClient
    ftp.host="192.168.1.123"
    ftp.Account = "ljkong"
    ftp.password = "ljkong123"
    If ftp.Connect Then
        If e.OldRange.RowSel <> e.NewRange.RowSel '如果选择的是不同的行
            If e.OldRange.RowSel >= 0 AndAlso e.OldRange.Rowsel < e.Table.Rows.Count Then '而且原来选择的是一个有效的数据行
                Dim r As Row = e.Table.Rows(e.OldRange.Rowsel) '获得原来选择的行
                If r.IsNull("附件") And r.IsNull("路径") = False Then
                    If ftp.DirExists(r("路径")) Then
                        ftp.DeleteDir(r("路径"))
                    End If
                End If
            End If
            If e.NewRange.RowSel >= 0 AndAlso e.NewRange.RowSel < e.Table.Rows.Count Then
                Dim nr As Row = e.Table.Rows(e.NewRange.RowSel)
                If nr.IsNull("标题") = False Then
                    DataTables(e.Table.Name).DataCols("标题").RaiseDataColChanged(nr.DataRow)
                End If
                If nr.IsNull("开始日期") = False Then
                    DataTables(e.Table.Name).DataCols("开始日期").RaiseDataColChanged(nr.DataRow)
                End If
                If nr.Locked = True Then
                    Forms("个人便签").Controls("FileManager1").ManagerCommand.Visible = False
                Else
                    Forms("个人便签").Controls("FileManager1").ManagerCommand.Visible = True
                End If
                Dim fls As List(of String)
                fls = ftp.GetFileList(nr("路径"))
                For Each fl As String In fls
                    Dim wjm() As String = fl.Split("\")
                    If fl.Contains("WYT" & nr.DataRow("_Identify")) Then
                        ftp.Download(nr("路径") & "\" & fl,ProjectPath & "FTbqtemp\" & wjm(wjm.Length - 1))
                    End If
                Next             
            End If
        End If
    Else
        MessageBox.Show("FTP连接失败!")
    End If
End If

12楼这句是在错误弹出后出来的，这个太难测试了，因为我直接发布的程序是没有错误提示的。只有用升级包的才出错误提示。而且直接用了新发布的程序后，再自动升级，也没有出这样的错误。不知道这样的错误是在哪一版开始的。我只能发布一版，测试一句了，可怕啊。