主题：求助：listview中如何获取二进制保存的图片呢？

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()

 有可能和网速有关。你改成这样看看

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) '定义大图标尺寸

Dim dr As DataRow = Tables("员工信息").Current.DataRow '从数据表中提取数据
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 '设置图片键值

lvw.ResumeRedraw()

那就说明网络问题，同样的代码，我的不会报错。