Question

VB如何将list1的内容添加到list2

前提是list1中是以复选框显示的，我想通过一个按钮将list1中选中的项目添加到list2，list1中可能是单选或多选，还可能是间隔的选择。请问代码该怎么弄？就像下面的图片那样~

Answer 1

Private Sub Command1_Click()
For i = 0 To List1.ListCount - 1
If List1.Selected(i) = True Then List2.AddItem List1.List(i)
Next
End Sub

追问

谢谢！太好了。xa一辉
的也对。
想顺便问一句，如果我想以从list1中筛选出来的条目为条件到数据库中查找对应的数据
比如到ACCESS数据库的“名称”这列查找符合list1或list2中的项目，该怎么写代码
如：SQL = "select * from TTMC where 名称 like '%" & List1..... & "%'"
就是说如果list1中都是名称，到数据库中筛选符合条件的名称。

追答

dim str as string
for i=0 to list2.listcount-1
if str ="" then
str ="'" + list2.list(i)+ "'"
else
str=" ,'" + list2.list(i)+ "'"
end if
next

SQL = "select * from TTMC where 名称 in (" + str +") "

Answer 2

dim i
for i=0 to list1.listcount-1
if list1.select(i)=true then list2.additem list1.list(i)
next