16,553
社区成员
发帖
与我相关
我的任务
分享
For Each item In CheckedListBox1.CheckedItems
'item.ToString()'就是你要的
Next
Dim s As String = String.Empty
For i As Integer = 0 To CheckedListBox1.Items.Count - 1
If CheckedListBox1.GetItemChecked(i) Then
s = s & CheckedListBox1.Items(i).value & ","
End If
Next
s = s.TrimEnd(",")
dim strSql = "select ...in(" & s &")"