以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  不知道为什么，3个图片只显示2个  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=130906)
--  作者：hongyefor
--  发布时间：2019/2/11 15:10:00
--  不知道为什么，3个图片只显示2个

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编辑过]
--  作者：有点甜
--  发布时间：2019/2/11 18:40:00
--  

试试设置，比如

 

pbxz.remote = True

 
--  作者：hongye
--  发布时间：2019/2/11 21:49:00
--  
不行，不过有个怪事，点其他可用的控件第3个图片就会显示
--  作者：有点蓝
--  发布时间：2019/2/11 21:56:00
--  
New不同的FtpClient绑定到不同的图片框
--  作者：hongye
--  发布时间：2019/2/11 22:13:00
--  
还是不行，不知道怎么会这样，代码在AfterLoad里
表Tables("员工信息_员工信息").Current，是另一个表直接绑定在SQL里的，也就是这个窗口是员工编辑，调用员工信息里的SQL员工信息表，证件图1和证件图2没有问题，就是卡折图有问题，而且点击其他可用控件又可以显示了
[此贴子已经被作者于2019/2/11 22:17:29编辑过]
--  作者：有点蓝
--  发布时间：2019/2/11 22:27:00
--  
试试设置自动更新

pbxk.AutoUpdate = True
--  作者：有点甜
--  发布时间：2019/2/12 9:33:00
--  

 

1、我测试没问题，你图片的路径必须正确，不然不会显示。

 

2、是不是你这个图片比较大，导致下载较慢，需要一段时间后才下载显示出来？