Dim strSql As String ‘查询字符串
Dim i As Integer
strSql = "select * from Table where "
For i = 0 To ListView1.ListItems.Count - 1 ’循环遍历ListView
If ListView1.ListItems(1).Checked Then
strSql = strSql & ListView1.ListItems(i).Text & "like %" & Text1.Text & "% "
End If
Next
不知这个是否正确理解了楼主的意思?