以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  点击图片文件名，图片框显示该图片  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=125977)
--  作者：蓝蚂蚁
--  发布时间：2018/10/11 9:58:00
--  点击图片文件名，图片框显示该图片
按钮“Button1”的代码如下：
Dim dtb As New DataTableBuilder("文件夹内容临时表")
dtb.AddDef("文件名称", Gettype(String), 100)
dtb.Build()
Tables("高值添加图片主窗口_Table2").DataSource = DataTables("文件夹内容临时表")
Dim dir As new io.DirectoryInfo("H:\\医用耗材管理系统2.0V\\AllMyFiles\\植入物合格证\\杰迈\\3月")
Dim files=dir.GetFiles
Dim ary2(files.length-1) As String
For i As Integer = 0 To files.length-1
    Dim file = files(i)
    ary2(i) = (file.Name)
Next
For Each s As String In ary2
    Dim dr2 As DataRow = DataTables("文件夹内容临时表").AddNew()
    dr2("文件名称")=s
Next

现在点击窗口中左表的文件名，则在右边的图片框显示该图片，请问老师其代码如何写？


图片点击可在新窗口打开查看此主题相关图片如下：image 1.jpg
图片点击可在新窗口打开查看
--  作者：有点甜
--  发布时间：2018/10/11 10:08:00
--  

方法一：你的图片框可以直接绑定表列，如 高值添加图片主窗口_Table2.文件名称

 

http://www.foxtable.com/webhelp/scr/1860.htm

 

存放目录，也要设置成 H:\\医用耗材管理系统2.0V\\AllMyFiles\\植入物合格证\\杰迈\\3月

 

方法二：在currentChanged事件，动态设置图片框的图片，如

 

Dim r as Row = e.table.current

Forms("高值添加图片主窗口").controls("picturebox1").image = getimage("H:\\医用耗材管理系统2.0V\\AllMyFiles\\植入物合格证\\杰迈\\3月\\" & r("文件名称"))
--  作者：蓝蚂蚁
--  发布时间：2018/10/11 10:23:00
--  
方法二我熟悉点，但窗口中的临时表好像没有currentChanged事件的，看了帖子要开启这个功能：DataTables("临时表").GlobalHandler.DataColChanged = True，但开启之后，在窗口中如何触发currentChanged事件呢？
--  作者：有点甜
--  发布时间：2018/10/11 10:24:00
--  

开启窗口表的全局表事件

 

Tables("高值添加图片主窗口_Table2").DataTable.GlobalHandler.CurrentChanged = True