用listview控件吧,将checkboxes设置为true,可以多选,name 设置为lsvInfo,。
dim str as string
str=""
Dim i As Long
For i = 1 To lsvInfo.ListItems.Count
'列举所以列
If lsvInfo.ListItems(i).Checked = True Then
'判断列是否被选定
'表达式
str=str & "," & lsvInfo.ListItems(i).Text
End If
Next i
str=right(str,len(str)-1)
'去掉第一个“,”。
strsql=select * from 表 where 姓名 in ('" & str & "')"
’生产查询语句
可以判断哪几行被选定。