Foxtable(狐表)用户栏目专家坐堂 → 关于图片显示的问题


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

主题:关于图片显示的问题

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


加好友 发短信
等级:幼狐 帖子:74 积分:605 威望:0 精华:0 注册:2016/6/13 18:16:00
关于图片显示的问题  发帖心情 Post By: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中显示相应的签字图片和审核时间,运行有问题,麻烦您看一下代码哪个地方有问题。

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


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By: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

 回到顶部