在帮助文件中的代码如下：

Dim lvw As WinForm.ListView = e.Form.Controls("ListView1")
lvw.StopRedraw() \'暂停绘制
lvw.Rows.Clear() \'清除原来的行
lvw.Images.Clear() \'清除原来的图片
lvw.View = ViewMode.LargeIcon \'显示模式为大图标
lvw.Images.LargeSize = New Size(130,150) \'定义大图标尺寸
For Each dr As DataRow In DataTables("员工").DataRows \'从数据表中提取数据
    Dim Key As String = dr("照片") \'获取此员工的照片文件
    lvw.Images.AddLargeImage(Key, Key) \'添加照片,直接用文件名作为图片键值
    Dim vr As  WinForm.ListViewRow =  lvw.Rows.Add() \'增加一行
    vr.Text = dr("姓名")  \'设置标题
    vr.ImageKey = Key \'设置图片键值
Next
lvw.ResumeRedraw()

可以获取直接显示保存在本地的员工照片

但是采用二进制列保存的照片如何进行显示呢？

目前有员工信息，物料附件两表，

求解！

下面代码是实现在窗体中的图片管理显示对应二进制图片内容的    求整合！

Dim pbx As WinForm.PictureBox = Forms("员工信息管理").Controls("PictureBox1")
If e.Sender.ComboList = ""
    Return
End If
If Tables("员工信息").Current Is Nothing Then
    pbx.Image = Nothing
Else
    \'  判断选择的是不是  图片格式,如果不是  则不执行代码   
    Dim dt As DataRow = DataTables("物料附件").SQLFind("附件名称=\'" & e.Sender.SelectedItem & "\' and 物料编码=\'" & Tables("员工信息").Current("编号") & "\' And [附件类别] = \'员工信息\'")
  
    If dt IsNot Nothing \'必须要判断不然  报错
        Dim nm() As String = e.Sender.SelectedItem.split(".")
        Dim tpjh As String = "bmp,jpg,png,gif"
        If tpjh.Contains(nm(nm.Length-1)) Then \'如果是图片格式则显示           
            pbx.Image = dt.SQlLoadImage("附件内容")  \'从后台提取照片并显示
        Else
            pbx.Image = Nothing
        End If
    End If
End If

Dim lvw As WinForm.ListView = e.Form.Controls("ListView1")
lvw.StopRedraw() \'暂停绘制
lvw.Rows.Clear() \'清除原来的行
lvw.Images.Clear() \'清除原来的图片
lvw.View = ViewMode.LargeIcon \'显示模式为大图标
lvw.Images.LargeSize = New Size(130,150) \'定义大图标尺寸

For Each dr As DataRow In DataTables("员工信息").DataRows \'从数据表中提取数据
    Dim Key As String = dr("照片") \'获取此员工的照片文件
    MessageBox.Show(key)
    lvw.Images.AddLargeImage(Key, Key) \'添加照片,直接用文件名作为图片键值
    Dim vr As  WinForm.ListViewRow =  lvw.Rows.Add() \'增加一行
    vr.Text = dr("名字")  \'设置标题
    vr.ImageKey = Key \'设置图片键值
Next
lvw.ResumeRedraw()

提示照片列不属于员工信息  照片咧是二进制列 在加载表的时候没有进行加载的

如果采用dt.SQlLoadImage直接提示不能转换成字符 

求解

一楼的代码不报错

但是那是两个不同的地方

所以图像不对应显示

Dim lvw As WinForm.ListView = e.Form.Controls("ListView1")
lvw.StopRedraw() \'暂停绘制
lvw.Rows.Clear() \'清除原来的行
lvw.Images.Clear() \'清除原来的图片
lvw.View = ViewMode.LargeIcon \'显示模式为大图标
lvw.Images.LargeSize = New Size(130,150) \'定义大图标尺寸

For Each dr As DataRow In DataTables("员工信息").DataRows \'从数据表中提取数据
    Dim Key As String = dr("_Identify") \'获取此员工的照片文件
    Dim img = dr.SQlLoadImage("照片")
    If img IsNot Nothing Then
        lvw.Images.LargeImages.Add(key, img)
    End If
    Dim vr As  WinForm.ListViewRow =  lvw.Rows.Add() \'增加一行
    vr.Text = dr("名字")  \'设置标题
    vr.ImageKey = Key \'设置图片键值
Next
lvw.ResumeRedraw()

此主题相关图片如下：5259.tmp.png

运行出错，且貌似读取速度相当慢，不知道有没有什么好的办法变通没有呢？