|
楼主 |
发表于 2011-2-13 20:23:57
|
显示全部楼层
广东省汕头市
已经解决了,资源共享,给其他也遇到这个问题的朋友们作个参考
.版本 2
.子程序 _组合框1_将弹出列表
.局部变量 x, 整数型
.局部变量 文本, 文本型
.局部变量 标, 文本型
.局部变量 临时, 文本型
.局部变量 数组, 文本型, , "0"
标 = “@#$”
文本 = 标
.计次循环首 (组合框1.取项目数 (), x)
临时 = 组合框1.取项目文本 (x - 1)
.如果真 (寻找文本 (文本, 标 + 临时 + 标, 0, 假) < 0)
文本 = 文本 + 临时 + 标
.如果真结束
.计次循环尾 ()
数组 = 分割文本 (文本, 标, )
组合框1.清空 ()
.计次循环首 (取数组成员数 (数组), x)
.如果真 (数组 [x] ≠ “”)
组合框1.加入项目 (数组 [x], )
.如果真结束
.计次循环尾 ()
--或--者
.版本 2
.支持库 EDataStructure
.子程序 _按钮1_被单击
.局部变量 节点, 节点
.局部变量 aa, 整数型
.循环判断首 ()
.如果 (节点.加入属性 (组合框1.取项目文本 (aa), 0))
aa = aa + 1
.否则
组合框1.删除项目 (aa)
.如果结束
.循环判断尾 (组合框1.取项目数 () > aa) |
|