Foxtable(狐表) → 用户栏目 → 专家坐堂 → 小白2小时研究listview成果


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

主题：小白2小时研究listview成果
帅哥哟，离线，有人找我吗？
paullqxp
 小大  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：518 积分：4773 威望：0 精华：1 注册：2011/11/23 20:48:00 		  发帖心情 Post By：2013/7/18 11:54:00 [只看该作者]

以下是引用qwbd520在2013-7-18 9:48:00的发言：
顺便帮楼主解决了切换节点的问题

代码呢？
 回到顶部
帅哥哟，离线，有人找我吗？
oaok
 小大  12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1198 积分：7859 威望：0 精华：0 注册：2013/5/17 14:26:00 		  发帖心情 Post By：2013/7/18 12:05:00 [只看该作者]

用户已经被屏蔽
 回到顶部
帅哥哟，离线，有人找我吗？
qwbd520
 小大  13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：31 积分：352 威望：0 精华：0 注册：2013/5/14 15:31:00 		  发帖心情 Post By：2013/7/20 7:24:00 [只看该作者]

Dim dr As DataRow = DataTables("图片").Find("天气 = '" & e.Sender.Value & "'")
If dr IsNot Nothing Then
    Tables("天气预报").Current("图号") = dr("图号")
End If
Dim LV As System.Windows.Forms.ListView=e.Form.Controls("Panel1").BaseControl.Controls("ListView1")

Dim SelectIndex As Integer= Tables("天气预报").Current("图号") 
Dim ItemSelects As  System.Windows.Forms.ListView.SelectedIndexCollection = LV.SelectedIndices  '获取选择集合
LV.Items.Item(ItemSelects(0)).ImageIndex=SelectIndex '或直接用 dr("图号") 也行一样

附件上传了不知道咋没显示·····郁闷·······

这代码有个BUG假如列表未有选中选择组合框会报错，需要判断下有木有选择项目
 回到顶部
总数 13 上一页 1 2
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.02734 秒, 4 次数据查询