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假如列表未有选中选择组合框会报错，需要判断下有木有选择项目
加好友 
发短信
Post By：2013/7/18 9:48:00 [显示全部帖子]
Post By：2013/7/20 7:24:00 [显示全部帖子]
，代码编辑器有VS那样的动态提示就好了！