Question

VB，如何把Listbox中的内容多项选择放入TextBOX中显示

如题，已有list1，text1，command1，adodc1, Xyz（Access表），X1（表中字段）
text1与X1关联，Xyz的源是adodc1

list1中已有多条数据，现选择N条数据，如何通过command1把多选的这几条数据放入text1中显示出来，以分隔符分开，并将text1中的内容写入Xyz表中X1字段中，分行排列下去呢？试了半天也只能单选。
list的MultiSelect已设置为2，text的Multiline也打开了
请问下具体语句应该如何写，list1_click只能单击关联text1

Answer 1

List控件的MultiSelect属性,有三个可选值：默认为0，不可多选，请设置为2 就可以多选

Answer 2

不懂意思，设计时设置 List1.MultiSelect 为2为多选

Answer 3

recstr=""
for i=1 to list1.listcount
if list1.selected(i)=true then
recstr=recstr & "/" & list1.itemdata(i)
endif
next i
if recstr<>"" then recstr=mid(recstr,2)
form1.text1.text=recstr

追问

请问这个写入command1里可以吗？为什么执行说if list1.selected(i)=true then的selected是无效属性数组索引呢？

追答

可以呀，list1.selected(i)=true在access VBA中代表选中的数据，你在VB6里查下和它相等的属性换下试试

追问

请问下有QQ吗，可以具体交流下吗

追答

List1设置属性MultiSelect 为2多选 ，我刚才查了下VB6支持list1.selected(i)=true这么写的
qq:276191905