超级列表框判断重复删除

卓卓2030

删除超级列表框重复   需要判断 1列 跟4列是否相同，如果是就删除重复的 保留一个 源码.e (9.07 KB, 下载次数: 6)

2025-5-26 02:36 上传

点击文件名下载附件

辽阳小哲

看看是不是你要的效果

test.e (4.19 KB, 下载次数: 6)

2025-5-26 08:53 上传

点击文件名下载附件

小白可达鸭

源码

卓卓2030

小白可达鸭 发表于 2025-5-26 04:33
源码

源码在底下呢老大

766711831

俩个循环嵌套 第一循环取0行数据 第2循环取第1行 让后对比 如果一样就删除 不一样就循环 一次类推

haoren1212

你应该插入的时候进行判断，而不是插入后，插入后判断至少两个循环不下十行代码。插入前判断只需要一个计次循环加两个判断

aipca

置重复的为空即可

亮蓝色的风

  

子程序名	返回值类型	公开	备 注
超级列表框_去重复_亮蓝色的风

变量名	类 型	静态	数组	备 注
起始行	整数型
判断行	整数型

起始行 ＝ 0
判断行 ＝ 起始行 ＋ 1
判断循环首 (判断行 ＜ 超级列表框1.取表项数 ())
如果 (超级列表框1.取标题 (起始行, 0) ＝ 超级列表框1.取标题 (判断行, 0) 且 超级列表框1.取标题 (起始行, 3) ＝ 超级列表框1.取标题 (判断行, 3))
超级列表框1.删除表项 (判断行)
判断行 ＝ 判断行 ＋ 1
如果真 (判断行 ＝ 超级列表框1.取表项数 ())
起始行 ＝ 起始行 ＋ 1
判断行 ＝ 起始行 ＋ 1

判断循环尾 ()

i支持库列表	支持库注释
iext	扩展界面支持库一

.版本 2<br /> .支持库 iext<br /> <br /> <br /> <br /> .子程序 超级列表框_去重复_亮蓝色的风<br /> .局部变量 起始行, 整数型<br /> .局部变量 判断行, 整数型<br /> <br /> 起始行 ＝ 0<br /> 判断行 ＝ 起始行 ＋ 1<br /> .判断循环首 (判断行 ＜ 超级列表框1.取表项数 ())<br />     .如果 (超级列表框1.取标题 (起始行, 0) ＝ 超级列表框1.取标题 (判断行, 0) 且 超级列表框1.取标题 (起始行, 3) ＝ 超级列表框1.取标题 (判断行, 3))<br />         超级列表框1.删除表项 (判断行)<br />     .否则<br />         判断行 ＝ 判断行 ＋ 1<br />     .如果结束<br />     .如果真 (判断行 ＝ 超级列表框1.取表项数 ())<br />         起始行 ＝ 起始行 ＋ 1<br />         判断行 ＝ 起始行 ＋ 1<br />     .如果真结束<br /> <br /> .判断循环尾 ()

九千七

.版本 2
.支持库 iext
.支持库 spec(2)

.计次循环首 (超级列表框1.取表项数 (), i)
    第一列 ＝ 超级列表框1.取标题 (i － 1, 0)
    第四列 ＝ 超级列表框1.取标题 (i － 1, 3)
    .如果真 (第一列 ＝ 第四列)
        调试输出 (第一列, 第四列)
        超级列表框1.置标题 (i － 1, 3, “”)
    .如果真结束

.计次循环尾 ()