主题：异机上传问题

e.Form.Controls("ProgressBar1").Visible = True
Dim ftp1 As New FtpClient
ftp1.Host="192.168.0.17"
ftp1.Account = "byftpuser"
ftp1.Password = "123456"

Dim p As WinForm.ProgressBar
p = e.Form.Controls("ProgressBar1")
p.Maximum = Tables("fa piao明细").Rows.Count '设置最大值
p.Minimum = 0 '设置最小值
p.Value = 0 '设置当前值

For Each r As Row In Tables("fa piao明细").Rows
    Dim f As String = "\\BINYANGKP-PC\eTax@SH WSRZ\Data\Pictures\31022875380680X\" & r("图片名")
    If FileSys.FileExists(f) Then
        Dim ftpf As String = "/fptp/" & r("图片名")
        If ftp1.FileExists(ftpf) = False Then
            If ftp1.Upload(f, ftpf) = True Then
                r("fa piao图片") = ftpf
            Else
                r("fa piao图片") = Nothing
            End If
        Else
            r("fa piao图片") = ftpf
        End If
    Else
        r("fa piao图片") = Nothing
    End If
    p.Value += 1
Next
ftp1.Close

msgbox("上传完成")
e.Form.Controls("ProgressBar1").Visible = False