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("发票明细").Rows.Count \'设置最大值
p.Minimum = 0 \'设置最小值
p.Value = 0 \'设置当前值

For Each r As Row In Tables("发票明细").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("发票图片") = ftpf
            Else
                r("发票图片") = Nothing
            End If
        Else
            r("发票图片") = ftpf
        End If
    Else
        r("发票图片") = Nothing
    End If
    p.Value += 1
Next
ftp1.Close

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