Tables("员工信息_员工信息").AllowEdit = True
Dim img As String = ProjectPath & "Attachments\上传身份证.jpg"
Dim imh As String = ProjectPath & "Attachments\上传账号图片.jpg"
Dim pbxz As WinForm.PictureBox = e.Form.Controls("证件图1")
Dim pbxf As WinForm.PictureBox = e.Form.Controls("证件图2")
Dim pbxk As WinForm.PictureBox = e.Form.Controls("卡折图")
Dim r As Row = Tables("员工信息_员工信息").Current
Dim sfz As String = r("证件图1")
Dim sff As String = r("证件图2")
Dim kzt As String = r("卡折图")
Dim ftp1 As New FtpClient
ftp1.Host=Tables("FTPIP").Current("FTPhost")
ftp1.Account = Tables("FTPIP").Current("FTPAccount")
ftp1.Password = Tables("FTPIP").Current("FTPpassword")
If sfz<> "" And ftp1.FileExists(sfz) Then
pbxz.FTPclient = ftp1
Else
pbxz.Image =GetImage(img)
End If
If sff<> "" And ftp1.FileExists(sff) Then
pbxf.FTPclient = ftp1
Else
pbxf.Image =GetImage(img)
End If
If kzt<> "" And ftp1.FileExists(kzt) Then
pbxk.FTPclient = ftp1
Else
pbxk.Image = GetImage(imh)
End If
请帮我看看,不知道为什么,3个图片只显示2个
[此贴子已经被作者于2019/2/11 15:13:17编辑过]