请帮我看看,以下哪里出了问题
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
[此贴子已经被作者于2016/4/2 10:22:24编辑过]