| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 图片调取 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=189734) |
| -- 作者：nxqtxwz -- 发布时间：2023/12/22 8:26:00 -- 图片调取 请问另一个表中的照片如何调取到控件中呢 用绑定列的方式出现人变了但照片不换的问题 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编辑过]
|
| -- 作者：有点蓝 -- 发布时间：2023/12/22 8:52:00 -- http://www.foxtable.com/webhelp/topics/0814.htm |
| -- 作者：nxqtxwz -- 发布时间：2023/12/22 9:28:00 -- 是外部数据源，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 调用图片不会了
|
| -- 作者：有点蓝 -- 发布时间：2023/12/22 9:47:00 -- 先使用FtpClient把图片下载下来，然后参考2楼的用法 |
| -- 作者：nxqtxwz -- 发布时间：2023/12/22 10:11:00 -- 不知道怎么写代码啊，请老师指导。 |
| -- 作者：有点蓝 -- 发布时间：2023/12/22 10:36:00 -- http://www.foxtable.com/webhelp/topics/1410.htm Download 从FTP上下载文件，语法： Download(sourceFileName, destinationFileName, ShowUI) sourceFileName：要下载的文件，含路径 如果下载成功，返回True，否则返回False: 示例 Dim ftp1 As new ftpclient |
| -- 作者：nxqtxwz -- 发布时间：2023/12/22 11:37:00 -- 老师，还是请您帮忙改改吧，水平有限，暂时弄不了。 代码写在"职 称申报"窗口的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")
|
| -- 作者：有点蓝 -- 发布时间：2023/12/22 11:54:00 -- 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("照片"))
|
| -- 作者：nxqtxwz -- 发布时间：2023/12/22 12:59:00 -- 顺利解决，谢谢您。 |