7,788
社区成员
发帖
与我相关
我的任务
分享如何把一个listbox中的值每相邻的两项组合后放到另一个combobox中
如何把一个listbox中的值每相邻的两项组合后放到另一个combobox中
...全文
请发表友善的回复…
发表回复
yangerpeng 2003-01-14
- 打赏
- 举报
解决了
yangerpeng 2003-01-14
- 打赏
- 举报
描述的有点错误
应该是两个两个的组合插入
应该是两个两个的组合插入
lxcc 2003-01-14
- 打赏
- 举报
dim a as string
for i=0 to iif((list1.listcount/2 mod 2)=0,list1.listcount/2-1,list1.listcount/2)
list1.listindex=i
a=list1.text
list1.listindex=i+1
a=a & list1.text
combo1.additem a
next i
for i=0 to iif((list1.listcount/2 mod 2)=0,list1.listcount/2-1,list1.listcount/2)
list1.listindex=i
a=list1.text
list1.listindex=i+1
a=a & list1.text
combo1.additem a
next i
lxcc 2003-01-14
- 打赏
- 举报
dim a as string
for i=0 to list1.listcount/2
list1.listindex=i
a=list1.text
list1.listindex=i+1
a=a & list1.text
combo1.additem a
next i
for i=0 to list1.listcount/2
list1.listindex=i
a=list1.text
list1.listindex=i+1
a=a & list1.text
combo1.additem a
next i
twinking 2003-01-14
- 打赏
- 举报
编写一个循环
然后
dim a as string
for i=0 to list1.listcount-2
list1.listindex=i
a=list1.text
list1.listindex=i+1
a=a & list1.text
combo1.additem a
next i
然后
dim a as string
for i=0 to list1.listcount-2
list1.listindex=i
a=list1.text
list1.listindex=i+1
a=a & list1.text
combo1.additem a
next i
