VB，如何把Listbox中的内容多项选择放入TextBOX中显示
如题，已有list1，text1，command1，adodc1,Xyz（Access表），X1（表中字段）text1与X1关联，Xyz的源是adodc1list1中已有...
如题，已有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 展开
text1与X1关联，Xyz的源是adodc1
list1中已有多条数据，现选择N条数据，如何通过command1把多选的这几条数据放入text1中显示出来，以分隔符分开，并将text1中的内容写入Xyz表中X1字段中，分行排列下去呢？试了半天也只能单选。
list的MultiSelect已设置为2，text的Multiline也打开了
请问下具体语句应该如何写，list1_click只能单击关联text1 展开
3个回答
展开全部
List控件的MultiSelect属性,有三个可选值：默认为0，不可多选，请设置为2 就可以多选
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
不懂意思，设计时设置 List1.MultiSelect 为2为多选
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
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
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里查下和它相等的属性换下试试
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
更多回答（1）
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
