请问另一个表中的照片如何调取到控件中呢
用绑定列的方式出现人变了但照片不换的问题
Dim dr As DataRow = DataTables("职工信息总表").Find("姓名='" & User.Name & "'")
If dr IsNot Nothing Then
e.form.Controls("TextBox1").text = dr("姓名")
e.form.Controls("TextBox2").text = dr("性别")
e.form.Controls("TextBox3").text = dr("学历情况_最高学历")
e.form.Controls("TextBox4").text = dr("学历情况_最高学历专业")
e.form.Controls("TextBox5").text = dr("教师资格_类别")
e.form.Controls("TPictureBox1").text = dr("照片")
End If
[此贴子已经被作者于2023/12/22 8:31:48编辑过]
是外部数据源，FTP上传
Dim ftp1 As New FtpClient
ftp1.Host="218.222.157.198:21"
ftp1.Account = "lyxx-wz"
ftp1.Password = "xxxxxxx"
Tables("学生名单").Current("照片") = Tables("学生名单").Current("学生姓名") & Tables("学生名单").Current("身份证件号") & ".jpg"
If result = 1
调用图片不会了
先使用FtpClient把图片下载下来，然后参考2楼的用法
http://www.foxtable.com/webhelp/topics/1410.htm
Download
从FTP上下载文件，语法：
Download(sourceFileName, destinationFileName, ShowUI)
sourceFileName：要下载的文件，含路径
destinationFileName：保存下载文件的文件名和路径。
ShowUI：可选参数，逻辑型，是否显示下载进度，默认为False。
如果下载成功，返回True，否则返回False:
示例
Dim ftp1 As new ftpclient
ftp1.host="196.128.143.28"
ftp1.Account = "foxuser"
ftp1.password = "138238110"
If ftp1.Download("\photo\Desert.jpg","c:\data\Desert.jpg") = True Then
Messagebox.show("下载完成!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
Else
Messagebox.show("下载失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If
老师，还是请您帮忙改改吧，水平有限，暂时弄不了。
代码写在"职 称申报"窗口的AfterLoad窗口中，现在有个疑问，怎么才能做到调取的就是我要的人的照片，
比如调取登录账号（登录账号就是姓名）这个人的照片，怎么写呢。
Dim ftp1 As New ftpclient
ftp1.host = "222.75.12.222"
ftp1.Account = "lyxx"
ftp1.password = "qlxx-wz-2"
ftp1.Download("./学校档案/教师照片/" & ("照片")", "c: \ data \ Desert.jpg")
Dim pbx AS WinForm.PictureBox
pbx = For ms("职 称 申报").Controls("PictureBox1")
pbx.Image = GetImage("c: \ data \ Desert.jpg")
Dim dr As DataRow = DataTables("职工信息总表").Find("姓名='" & User.Name & "'")
If dr IsNot Nothing Then
……
……
msgbox(dr("照片")) 看看路径是否正确，如果已经有“学校档案/教师照片”就不要加下面路径了
if ftp1.Download("./学校档案/教师照片/" & dr("照片"),projectpath & "RemoteFile\" & dr("照片"))
Dim pbx AS WinForm.PictureBox
pbx = For ms("职 称 申报").Controls("PictureBox1")
pbx.Image = GetImage(projectpath & "RemoteFile\" & dr("照片"))