以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  关于图片显示的问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=102026)
--  作者：天蝉一下
--  发布时间：2017/6/12 10:09:00
--  关于图片显示的问题
Dim lvw As WinForm.ListView = e.Form.Controls("ListView1")
Dim spbm As String=e.Form.Controls("spbm")
Dim dt As DataTable
lvw.Rows.Clear() \'清除原来的行
lvw.Images.Clear() \'清除原来的图片
lvw.View = ViewMode.SmallIcon \'用小图标模式
Dim cmd As new sql com mand
cmd.Conne ction Name="foxtable"
cmd.Com mandText="select * fr om {签字管理} where 签字编号=\'" & spbm & "\'"
dt=cmd.ExecuteReader
Dim nms() As String = dt("审批时间") \'定义标题为审批时间 
Dim ics() As String = dt("签字地址")\'定义图标键值,显示个人签字图片 
For i As Integer = 0 To nms.Length - 1
    lvw.Images.AddSmallImage(ics(i),ics(i) & ".ico") \'添加代表这个国家的小图标
    Dim r As  WinForm.ListViewRow =  lvw.Rows.Add() \'增加一行
    r.Text = nms(i) \'指定标题
    r.ImageKey = ics(i) \'指定图标键值
Next
上述代码意思就是通过某一表单的编码在ListView中显示相应的签字图片和审核时间，运行有问题，麻烦您看一下代码哪个地方有问题。
--  作者：有点色
--  发布时间：2017/6/12 10:22:00
--  
Dim lvw As WinForm.ListView = e.Form.Controls("ListView1")
Dim spbm As String=e.Form.Controls("spbm")
Dim dt As DataTable
lvw.Rows.Clear() \'清除原来的行
lvw.Images.Clear() \'清除原来的图片
lvw.View = ViewMode.SmallIcon \'用小图标模式
Dim cmd As new sqlcommand
cmd.ConnectionName="foxtable"
cmd.CommandText="select * from {签字管理} where 签字编号=\'" & spbm & "\'"
dt=cmd.ExecuteReader
For Each dr As DataRow In dt.DataRows
 lvw.Images.AddSmallImage(dr("签字地址"),dr("签字地址") & ".ico") \'添加代表这个国家的小图标
    Dim r As  WinForm.ListViewRow =  lvw.Rows.Add() \'增加一行
    r.Text = dr("审批时间") \'指定标题
    r.ImageKey = dr("签字地址") \'指定图标键值
Next