超级列表框过滤重复

lyq3255489

给新手们学习 大神勿喷!






如图     回复  下载 源码



删除重复列子.e (5.2 KB, 下载次数: 157)

2018-5-19 16:06 上传

点击文件名下载附件

lyq3255489

我感觉这个可以添加到 精易模块里面 哈哈哈

网络注册络员

顶啊顶啊顶

ddryao

谢谢分享，来看看楼主的方法。收下。感谢。。。。

lyq3255489

biao197 发表于 2018-6-27 17:19
谢谢，正好需要，封装到自己的模块库中了，代码如下，需要的拿走

你为何如此优秀?

biao197

谢谢，正好需要，封装到自己的模块库中了，代码如下，需要的拿走

1. .版本 2
   
2. .支持库 iext
   
3. 
   
4. .子程序 超级列表框_删除重复, , 公开
   
5. .参数 超级列表框, 超级列表框, , 要删除重复的超级列表框
   
6. .参数 检索重复的列, 整数型, , 检索重复的列
   
7. .参数 重新排序, 逻辑型, 可空, 可空，默认为真，重新排序
   
8. .参数 返回操作结果信息, 文本型, 可空, 返回执行结果信息
   
9. .局部变量 i, 整数型
   
10. .局部变量 记录, 整数型
    
11. .局部变量 检测有没有重复, 文本型
    
12. .局部变量 排序, 整数型
    
13. 
    
14. i ＝ 1
    
15. .如果真 (是否为空 (重新排序))
    
16.     重新排序 ＝ 真
    
17. .如果真结束
    
18. 
    
19. .判断循环首 (i ≤ 超级列表框.取表项数 ())
    
20. 
    
21.     .判断开始 (寻找文本 (检测有没有重复, 超级列表框.取标题 (i － 1, 检索重复的列), , 假) ＝ -1)  ' 如果没有发现重复就怎么样 发现了 就怎么样
    
22.         检测有没有重复 ＝ 检测有没有重复 ＋ 超级列表框.取标题 (i － 1, 检索重复的列) ＋ #换行符
    
23.         i ＝ i ＋ 1
    
24.         输出调试文本 (检测有没有重复)
    
25.     .默认
    
26. 
    
27.         超级列表框.删除表项 (i － 1)
    
28.         i ＝ i － 1
    
29.         i ＝ i ＋ 1
    
30. 
    
31.         记录 ＝ 记录 ＋ 1
    
32.     .判断结束
    
33. 
    
34. .判断循环尾 ()
    
35. .如果真 (是否为空 (返回操作结果信息) ＝ 假)
    
36.     .如果 (记录 ＝ 0)
    
37.         返回操作结果信息 ＝ “列[” ＋ 到文本 (检索重复的列) ＋ “]没有重复的内容！”
    
38.     .否则
    
39.         返回操作结果信息 ＝ “列[” ＋ 到文本 (检索重复的列) ＋ “]共删除” ＋ 到文本 (记录) ＋ “个重复内容！”
    
40. 
    
41.     .如果结束
    
42. 
    
43. .如果真结束
    
44. 
    
45. .如果真 (重新排序)
    
46.     排序 ＝ 超级列表框.取表项数 ()  ' 重新排序
    
47.     .计次循环首 (排序, i)
    
48.         超级列表框.置标题 (i － 1, 0, 到文本 (i))
    
49.     .计次循环尾 ()
    
50. 
    
51. .如果真结束
    
52. 
    

复制代码

18248980980

我也遇到过这样的问题过来学习一下

yvevyl

好东西啊你

Deyl

大多数规划法规回复等多个

天下唯商

学习学习学习学习学习学习学习学习学习学习