以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  怎么把表中图片 列 赋值到图片浏览器  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=147469)

--  作者:绿火柴
--  发布时间:2020/3/17 17:30:00
--  怎么把表中图片 列 赋值到图片浏览器
怎么把表中 图片 列 赋值到图片浏览器。可以在窗体控件中查看图片。


图片点击可在新窗口打开查看此主题相关图片如下:怎么把表中图片信息赋值到图片浏览器.png
图片点击可在新窗口打开查看




--  作者:有点蓝
--  发布时间:2020/3/17 17:39:00
--  
图片浏览器必须绑定列使用,然后直接给绑定的列赋值即可
--  作者:绿火柴
--  发布时间:2020/3/17 17:43:00
--  
窗体有一个下拉组合框,两个文本框,一个图片浏览器。通过下拉窗口把另一个表的选定行,显示在前面4个控件上。那怎么样做合适呢。
[此贴子已经被作者于2020/3/17 19:01:55编辑过]

--  作者:有点蓝
--  发布时间:2020/3/17 20:05:00
--  
如果只有一张图片,改为使用图片框picturebox
如果有多张图片,可以使用listview大图模式

--  作者:绿火柴
--  发布时间:2020/3/18 20:35:00
--  
多谢蓝版本,我用下面黄色的代码解决了。效果是有了。这样子可以吗?
Dim tbl As Table = Tables("询价查询_Table1")
If tbl.Current IsNot Nothing Then
    e.Form.DropDownBox.Value = tbl.Current("RFQ")
    Forms("产品部件").Controls("TextBox1").Value = tbl.Current("客户名称")
    Forms("产品部件").Controls("TextBox2").Value = tbl.Current("项目名称")
    Dim xx As DataRow = tbl.Current.DataRow
    Tables("询价表头").Position = xx("_identify")-1
    \'Forms("产品部件").Controls("PictureViewer1").ReadValue = tbl.Current.lines("图片")
End If

--  作者:有点蓝
--  发布时间:2020/3/19 8:44:00
--  
自己测试达到预期,觉得没有问题就行