以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]获取后台二进制图片的问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=111412)
--  作者：yangguojun
--  发布时间：2017/12/21 13:48:00
--  [求助]获取后台二进制图片的问题
    Dim Filter As String = "[模块分组] = \'"& gp &"\'"
    Dim drs As List(Of DataRow) = dt.sqlSelect(Filter)
    For Each dr As DataRow In drs
        \'Dim img = Tables("系统模块").Current.DataRow.SQlLoadImage("图标")
        Dim img = dr.DataRow.SQlLoadImage("图标")       
    Next

在遍历的过程中，想显示  各行自己的图片，  
    用 Dim img = Tables("系统模块").Current.DataRow.SQlLoadImage("图标") 测试可以显示后台图片
    用 Dim img = dr.DataRow.SQlLoadImage("图标")     就无法使用，遍历的时候改如何时候这个？
--  作者：有点甜
--  发布时间：2017/12/21 14:24:00
--  

这样行不行？

 

    Dim Filter As String = "[模块分组] = \'"& gp &"\'"

    Dim drs As List(Of DataRow) = dt.Select(Filter)
    For Each dr As DataRow In drs
        Dim img = dr.SQlLoadImage("图标")       
    Next
--  作者：yangguojun
--  发布时间：2017/12/21 14:39:00
--  
试过的   出不来    提示  未将对象引用到实例
--  作者：有点甜
--  发布时间：2017/12/21 14:55:00
--  

这样写弹出什么？

 

    Dim Filter As String = "[模块分组] = \'"& gp &"\'"

    Dim drs As List(Of DataRow) = dt.Select(Filter)
    For Each dr As DataRow In drs
        Dim img = dr.SQlLoadImage("图标")       
        msgbox(img is nothing)
    Next
--  作者：yangguojun
--  发布时间：2017/12/21 15:26:00
--  
提示   
不存在名称为  “”   的datatable！
--  作者：yangguojun
--  发布时间：2017/12/21 15:28:00
--  
还返回一个  true  的值 
--  作者：有点甜
--  发布时间：2017/12/21 15:38:00
--  

你这个dt不能是临时表，临时表无法直接使用 SQlLoadImage

 

如果使用临时表，那就直接查询就好了，如

 

Dim cmd As SQLCommand = new SQLCommand()
cmd.ConnectionName = "SqlServerDB"
cmd.CommandText = "select * from 员工表"
Dim dt As DataTable = cmd.ExecuteReader
For Each dr As DataRow In dt.Select("")
    Dim imageByte() As Byte = dr("图片列")
    Dim ms As New IO.MemoryStream(imageByte)       \'将字节数组转换为二进制流
    Dim image As Image = Image.FromStream(ms)      \'将二进制流转换为图片
    msgbox(dr("第一列") & (image Is Nothing))
Next

 

[此贴子已经被作者于2017/12/21 15:38:35编辑过]
--  作者：yangguojun
--  发布时间：2017/12/21 16:01:00
--  
这种方法可以  谢谢！