超级列表框数据汇总

小汉子

如图所示，如何将超级列表框1的相同数据进行汇总，结果如超级列表框2.

明靓

不一样的算法,准确,高效,代码简洁.



源码: 合计超级列表框相同项的数.zip (1.6 KB, 下载次数: 105)

2016-3-8 17:06 上传

点击文件名下载附件


补充内容 (2016-3-8 17:11):
纯源码,不带模块,只用到数据结构支持库.

苦橙汁

就是把第一个去重呗

易魔

1、左名称放数组，去重复，放右表。
2、数组每成员，在左表查找表项，然后累计。

小汉子

苦橙汁 发表于 2016-3-8 16:21
就是把第一个去重呗

是的，去重复，后面数量也相加起来

冯古屋

新建 易程序.rar (1.41 KB, 下载次数: 39)

2016-3-8 16:25 上传

点击文件名下载附件

xdaiding

.版本 2
.支持库 iext

.子程序 _按钮1_被单击
.局部变量 i, 整数型
.局部变量 a, 文本型
.局部变量 b, 文本型
.局部变量 n, 整数型
.局部变量 sz, 整数型
.局部变量 sfcz, 文本型, , "0"
.局部变量 sy, 整数型


.计次循环首 (超级列表框1.取表项数 (), i)
    a ＝ 超级列表框1.取标题 (i － 1, 0)
    sz ＝ 0
    .计次循环首 (超级列表框1.取表项数 (), n)
        .如果真 (a ＝ 超级列表框1.取标题 (n － 1, 0))
            sz ＝ sz ＋ 到整数 (超级列表框1.取标题 (n － 1, 1))
        .如果真结束

    .计次循环尾 ()
    加入成员 (sfcz, a)
    .如果真 (数组_取次数 (sfcz, a) ＝ 1)
        sy ＝ 超级列表框2.插入表项 (, , , , , )
        超级列表框2.置标题 (sy, 0, a)
        超级列表框2.置标题 (sy, 1, 到文本 (sz))
    .如果真结束

.计次循环尾 ()

苦橙汁

小汉子 发表于 2016-3-8 16:24
是的，去重复，后面数量也相加起来

汇总.rar (140.65 KB, 下载次数: 61)

2016-3-8 16:42 上传

点击文件名下载附件

荖貢

用循环镶套对比删除重复 把重复的数据加到对比项的数据上

1. .版本 2
   
2. .支持库 iext
   
3. 
   
4. .子程序 __启动窗口_创建完毕
   
5. .局部变量 表项计数, 整数型
   
6. .局部变量 表项计次, 整数型
   
7. .局部变量 文本, 文本型
   
8. .局部变量 数值, 双精度小数型, , "2"
   
9. 
   
10. .判断循环首 (列表框.取表项数 () ＞ 表项计次 ＋ 1)
    
11.     文本 ＝ 列表框.取标题 (表项计次, 0)
    
12.     .变量循环首 (列表框.取表项数 () － 1, 0, -1, 表项计数)
    
13.         .如果 (表项计次 ≠ 表项计数)
    
14.             .如果真 (文本 ＝ 列表框.取标题 (表项计数, 0))
    
15.                 数值 [1] ＝ 到数值 (列表框.取标题 (表项计次, 1))
    
16.                 数值 [2] ＝ 到数值 (列表框.取标题 (表项计数, 1))
    
17.                 列表框.置标题 (表项计次, 1, 到文本 (数值 [1] ＋ 数值 [2]))
    
18.                 列表框.删除表项 (表项计数)
    
19.             .如果真结束
    
20. 
    
21.         .否则
    
22.             跳出循环 ()
    
23.         .如果结束
    
24. 
    
25.     .变量循环尾 ()
    
26.     表项计次 ＝ 表项计次 ＋ 1
    
27. .判断循环尾 ()
    

复制代码