超级列表框去重方法

巴拉巴拉小魔仙

很多企业表格里有重复名字，重复表项，网上找一大堆不知道搞，怎么去重了本人几行代码搞定，超级列表框表项去重
.版本 2
.支持库 iext

.子程序 _按钮11_被单击
.局部变量 表项数, 整数型
.局部变量 i, 整数型
.局部变量 index, 整数型
.局部变量 计次, 整数型
.局部变量 计次2, 整数型
.局部变量 计次1, 整数型
.局部变量 标题1, 文本型


.计次循环首 (超级列表框1.取表项数 (), 计次)

    .如果真 (超级列表框1.取标题 (计次, 1) ＝ 超级列表框1.取标题 (计次 － 1, 1))

        超级列表框1.删除表项 (计次)
    .如果真结束

    .如果真 (超级列表框1.取标题 (计次, 1) ＝ 超级列表框1.取标题 (计次 － 2, 1))

        超级列表框1.删除表项 (计次)
    .如果真结束

    .如果真 (超级列表框1.取标题 (计次, 1) ＝ 超级列表框1.取标题 (计次 － 3, 1))

        超级列表框1.删除表项 (计次)
    .如果真结束

.计次循环尾 ()


表项数 ＝ 超级列表框1.取表项数 ()




’会删除重复表项目数据无价请备份再运行

youxigw

门童

论坛不是有模块吗。然后一条代码就行了啊  

小了白了兔

查找表项不香吗？

3012282767

6

123456ppt

6

悟空科技

吴涛沉默了