以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  ListView中复选框  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=59952)
--  作者：qianqian1530
--  发布时间：2014/11/14 16:04:00
--  ListView中复选框
下面这个代码怎么反写呢？？

Dim lvw As WinForm.ListView = e.Form.Controls("ListView1")
Dim vls As String = ""
For Each vr As WinForm.ListViewRow In lvw.CheckedRows
    vls = vls & "," & vr("国家")
Next
vls = vls.Trim(",")
If vls > "" Then
    MessageBox.show("你选择的国家有:" & vls)
Else
    MessageBox.show("你并没有选择任何国家!" )
End If



就是说当 

vls 等于 中国,法国,韩国,香港,美国 

的时候 就自动选择相关的复选框
--  作者：有点甜
--  发布时间：2014/11/14 16:07:00
--  
 循环每一行，如果vr("国家") = "中国" 就设置 vr.Checked