以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  关于SQlLoadImage 从后台的二进制列提取图片  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=106988)
--  作者：yetle
--  发布时间：2017/9/19 17:41:00
--  关于SQlLoadImage 从后台的二进制列提取图片
外部数据表“款式图”存有二进制图片，列字段为"SizeChImage"，窗口“选择款”，在窗口新建了picturebox "PictureBox1",窗体内有外部数据表“鼎邦款式库”

需求：在窗体内外部数据表“鼎邦款式库”选择行的时候，通过    ElseIf Tables("选择款_鼎邦款式库").Current("ID")  = Tables("款式图").Current("UPID")  Then来显示对应外部数据表“款式图”的图片

将表“鼎邦款式库”的CurrentChanged事件代码设置为：
If Forms("选择款").Opened Then \'如果窗口已经打开
    Dim pbx As WinForm.PictureBox = Forms("选择款").Controls("PictureBox1")
    If Tables("选择款_鼎邦款式库").Current Is Nothing Then
        pbx.Image = Nothing
    ElseIf Tables("选择款_鼎邦款式库").Current("ID")  = Tables("款式图").Current("UPID")  Then
        pbx.Image = Tables("款式图").Current.DataRow.SQlLoadImage("SizeChImage") \'从后台提取照片并显示
    End If
End If

最后将窗口"选择款"的AfterLoad事件代码设置为：

Tables("款式图").RaiseCurrentChanged() 


为什么图片会不显示？
--  作者：有点甜
--  发布时间：2017/9/19 18:52:00
--  

1、在CurrentChanged事件，加入msgbox，看是否弹出，看是否触发了事件；

 

2、你可以把代码直接写到afterLoad事件，看是否可以？
--  作者：yetle
--  发布时间：2017/9/20 8:41:00
--  帮我看看
还是不行呢
--  作者：有点甜
--  发布时间：2017/9/20 10:58:00
--  
以下是引用yetle在2017/9/20 8:41:00的发言：
还是不行呢

 

请加入msgbox，测试是否触发了里面的代码。看看弹出的值是否正确。