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

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

此主题相关图片如下：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

提示个人便签表afterselchanged事件有问题，检查具体代码。发上来看看

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

代码如下：

'*****判断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

ftp.DeleteDir(r("路径"))

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

那么可能是中间某一次升级失败后导致的问题。有没有改过项目名称？

测试了下，确认在加载表的时候开始提示11楼错误信息的。就是这段代码，2和3之间出现错误。这里应该没问题才对吧？

MessageBox.Show(2)
'******加载用户,数据登记,权限表*******
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
MessageBox.Show(3)

看看：http://www.foxtable.com/webhelp/topics/2755.htm