Foxtable(狐表)用户栏目专家坐堂 → 查询数据时把关联的二进制图片显示在单元格里,如何实现


  共有2647人关注过本帖树形打印复制链接

主题:查询数据时把关联的二进制图片显示在单元格里,如何实现

帅哥哟,离线,有人找我吗?
chinawangsa
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:184 积分:2342 威望:0 精华:0 注册:2013/12/5 11:11:00
查询数据时把关联的二进制图片显示在单元格里,如何实现  发帖心情 Post By: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编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110443 积分:562081 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/11/2 10:28:00 [只看该作者]

仅适用已经加载的行,改为
dr = DataTables("mx").Find("[id] = '" & idd & "'")

 回到顶部
帅哥哟,离线,有人找我吗?
chinawangsa
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:184 积分:2342 威望:0 精华:0 注册:2013/12/5 11:11:00
  发帖心情 Post By:2023/11/2 10:38:00 [只看该作者]

不是。我是想把SQL里存储的二进制图片直接查询时,能显示出来。
图片点击可在新窗口打开查看

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110443 积分:562081 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/11/2 10:41:00 [只看该作者]

如果要在单元格显示,只能下载后到drawcell事件绘制。个人不建议做这种功能,全部都是本地文件还好,还要一边下载一边绘制,会很卡,甚至卡到怀疑人生。

 回到顶部