以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  查询数据时把关联的二进制图片显示在单元格里,如何实现  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=188955)

--  作者:chinawangsa
--  发布时间:2023/11/2 10:03:00
--  查询数据时把关联的二进制图片显示在单元格里,如何实现
查询数据时把关联的二进制图片显示在单元格里,如何实现,是一定要把图片下载到本地,再一个个填充到单元表格里去。
可不可以直接显示过去。不用一个个下载,再显示。
Dim idd As Integer = e.Table.Current.DataRow("ID号")
Dim dr As DataRow
dr = DataTables("mx").SQLFind("[id] = \'" & idd & "\'")
If dr IsNot Nothing Then \'如果找到的话
    Dim logp As WinForm.PictureBox = e.Form.Controls("PictureBox1")
    If dr("mjwj") IsNot Nothing Then
        logp.Image = dr.SQlLoadImage("mjwj") \'从后台提取照片并显示   这样的直接提取显示出来。那就方便了。
    Else
        logp.Image = Nothing
    End If
End If
[此贴子已经被作者于2023/11/2 10:18:27编辑过]

--  作者:有点蓝
--  发布时间:2023/11/2 10:28:00
--  
仅适用已经加载的行,改为
dr = DataTables("mx").Find("[id] = \'" & idd & "\'")

--  作者:chinawangsa
--  发布时间:2023/11/2 10:38:00
--  
不是。我是想把SQL里存储的二进制图片直接查询时,能显示出来。
图片点击可在新窗口打开查看

--  作者:有点蓝
--  发布时间:2023/11/2 10:41:00
--  
如果要在单元格显示,只能下载后到drawcell事件绘制。个人不建议做这种功能,全部都是本地文件还好,还要一边下载一边绘制,会很卡,甚至卡到怀疑人生。