Foxtable(狐表)用户栏目专家坐堂 → 不知道为什么,3个图片只显示2个


  共有3028人关注过本帖树形打印复制链接

主题:不知道为什么,3个图片只显示2个

帅哥哟,离线,有人找我吗?
hongyefor
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:524 积分:3676 威望:0 精华:0 注册:2012/7/27 10:28:00
不知道为什么,3个图片只显示2个  发帖心情 Post By:2019/2/11 15:10:00 [显示全部帖子]

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编辑过]

 回到顶部