如何把一个listbox中的值每相邻的两项组合后放到另一个combobox中

yangerpeng 2003-01-14 03:11:07
如何把一个listbox中的值每相邻的两项组合后放到另一个combobox中
...全文
7 点赞 收藏 5
写回复
5 条回复
切换为时间正序
请发表友善的回复…
发表回复
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
回复
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
回复
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


回复
发动态
发帖子
VB基础类
创建于2007-09-28

7451

社区成员

VB 基础类
申请成为版主
社区公告
暂无公告