|
发表于 2016-2-4 21:52:16
|
显示全部楼层
湖北省宜昌市
- [e=0].版本 2
- .支持库 iext
- .程序集 窗口程序集1
- .子程序 _按钮1_被单击
- .局部变量 i, 整数型
- .局部变量 状态, 文本型
- .局部变量 公司, 文本型
- .局部变量 arr, 文本型, , "0"
- .局部变量 ls, 整数型
- .判断开始 (组合框1.现行选中项 = 0)
- 状态 = “|”
- .计次循环首 (组合框1.取项目数 (), i)
- 状态 = 状态 + 组合框1.取项目文本 (i - 1) + “|”
- .计次循环尾 ()
- .默认
- 状态 = 组合框1.取项目文本 (组合框1.现行选中项)
- .判断结束
- .判断开始 (组合框2.现行选中项 = 0)
- 公司 = “|”
- .计次循环首 (组合框2.取项目数 (), i)
- 公司 = 公司 + 组合框2.取项目文本 (i - 1) + “|”
- .计次循环尾 ()
- .默认
- 公司 = 组合框2.取项目文本 (组合框2.现行选中项)
- .判断结束
- .计次循环首 (超级列表框1.取表项数 (), i)
- .判断开始 (寻找文本 (状态, 超级列表框1.取标题 (i - 1, 1), , 假) > 0 且 寻找文本 (公司, 超级列表框1.取标题 (i - 1, 2), , 假) > 0)
- 加入成员 (arr, 超级列表框1.取标题 (i - 1, 1) + “|” + 超级列表框1.取标题 (i - 1, 2))
- .默认
- .判断结束
- .计次循环尾 ()
- 超级列表框1.全部删除 ()
- .计次循环首 (取数组成员数 (arr), i)
- ls = 超级列表框1.插入表项 (, , , , , )
- 超级列表框1.置标题 (ls, 0, 到文本 (ls + 1))
- 超级列表框1.置标题 (ls, 1, 文本_取左边 (arr [i], “|”))
- 超级列表框1.置标题 (ls, 2, 文本_取右边 (arr [i], “|”))
- .计次循环尾 ()
- [/e]
复制代码 |
评分
-
参与人数 1 | 荣誉 +1 |
收起
理由
|
笨潴
| + 1 |
热心帮助他人,荣誉+1,希望继续努力(*^__^*) 嘻嘻! |
查看全部评分
|