主题：怎么回事在窗口是好的呀

'''
Dim s As String = FileSys.ReadAllText(ProjectPath & "Attachments\ftpip.ipls")
msgbox(s)
Dim arr() As String = s.Replace(vbcr,"").Split(vblf)
msgbox(arr.length)
For i As Integer = 0 To 1
    Dim ftp0 As New FTPClient
    msgbox(arr(i*3))
    msgbox(arr(i*3+1))
    msgbox(arr(i*3+2))
    ftp0.host=arr(i*3).Split("|")(1)
    msgbox(arr(i*3).Split("|")(1))
    ftp0.Account = arr(i*3+1).Split("|")(1)
    msgbox(arr(i*3+1).Split("|")(1))
    ftp0.password = arr(i*3+2).Split("|")(1)
    msgbox(arr(i*3+2).Split("|")(1))
   
    If  ftp0.Connect  Then
        Messagebox.Show(ftp0.host + "该服务器可用")
        For iy As Integer = 1 To 3
            Dim ftp1 As New FTPClient
            ftp1.host =ftp0.host
            Tables("表b").Current("第一列") = ftp0.host
            ftp1.Account = ftp0.Account
            Tables("表b").Current("第二列") = ftp0.Account
            ftp1.password = ftp0.password
            Tables("表b").Current("第三列") = ftp0.password
            msgbox(ftp1.host)
            msgbox(ftp1.Account)
            msgbox(ftp1.password )
        Next
        Exit For
    Else
        Messagebox.Show(ftp0.host + "该服务器不可用")
    End If
Next