超级列表框去重复求和，多给些精币

wunan2002

之前有发过 但是没有人给过实质的代码  我有个代码到是可以去重复求和
但是有时候会有BUG   求大神给写个代码
追加精币 感谢
需要客户名称去重复  并且件数求和

toxicbug

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
json_A	zyJsonValue

子程序名	返回值类型	公开	备 注
_按钮1_被单击

子程序1 ()

子程序名	返回值类型	公开	备 注
子程序1

变量名	类 型	静态	数组	备 注
表项	整数型
列数	整数型
N	整数型
M	整数型
K	整数型
T	整数型
S	整数型
I	整数型
原件数	整数型
现件数	整数型
表项索引	整数型
组名	文本型		0
lj	文本型

表项 ＝ 超级列表框1.取表项数 ()
列数 ＝ 超级列表框1.取列数 ()
json_A.创建 (, , , , )
计次循环首 (表项, N)
判断 (json_A.是否存在 (超级列表框1.取标题 (N － 1, 0)))
原件数 ＝ 到整数 (json_A.取文本 (超级列表框1.取标题 (N － 1, 0) ＋ “[1]”))
现件数 ＝ 原件数 ＋ 到整数 (超级列表框1.取标题 (N － 1, 1))
json_A.置文本 (超级列表框1.取标题 (N － 1, 0) ＋ “[1]”, 到文本 (现件数))
调试输出 (“-------------第” ＋ 到文本 (N) ＋ “次---------------”)
调试输出 (“原件数：” ＋ 到文本 (原件数) ＋ “&现件数：” ＋ 到文本 (现件数))
调试输出 (json_A.取文本 (超级列表框1.取标题 (N － 1, 0) ＋ “[1]”))
json_A.置数组 (超级列表框1.取标题 (N － 1, 0))
计次循环首 (列数, M)
json_A.置文本 (超级列表框1.取标题 (N － 1, 0) ＋ “[” ＋ 到文本 (M － 1) ＋ “]”, 超级列表框1.取标题 (N － 1, M － 1))
计次循环尾 ()

计次循环尾 ()
调试输出 (json_A.到文本 (, , , ))
json_A.取所有属性名 (, 组名)
K ＝ 取数组成员数 (组名)
S ＝ json_A.取成员数 (“西安”)
调试输出 (到文本 (K) ＋ “&” ＋ 到文本 (S))
调试输出 (组名)
计次循环首 (K, T)
表项索引 ＝ 超级列表框2.插入表项 (, , , , , )
lj ＝ 组名 [T]
计次循环首 (S, I)
超级列表框2.置标题 (表项索引, I － 1, json_A.取文本 (lj ＋ “[” ＋ 到文本 (I － 1) ＋ “]”))
计次循环尾 ()
计次循环尾 ()

i支持库列表	支持库注释
iext	扩展界面支持库一
spec	特殊功能支持库

.版本 2<br /> .支持库 iext<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 json_A, zyJsonValue<br /> <br /> .子程序 _按钮1_被单击<br /> <br /> <br /> 子程序1 ()<br /> <br /> <br /> .子程序 子程序1<br /> .局部变量 表项, 整数型<br /> .局部变量 列数, 整数型<br /> .局部变量 N, 整数型<br /> .局部变量 M, 整数型<br /> .局部变量 K, 整数型<br /> .局部变量 T, 整数型<br /> .局部变量 S, 整数型<br /> .局部变量 I, 整数型<br /> .局部变量 原件数, 整数型<br /> .局部变量 现件数, 整数型<br /> .局部变量 表项索引, 整数型<br /> .局部变量 组名, 文本型, , "0"<br /> .局部变量 lj, 文本型<br /> <br /> 表项 ＝ 超级列表框1.取表项数 ()<br /> 列数 ＝ 超级列表框1.取列数 ()<br /> json_A.创建 (, , , , )<br /> .计次循环首 (表项, N)<br />     .判断开始 (json_A.是否存在 (超级列表框1.取标题 (N － 1, 0)))<br />         原件数 ＝ 到整数 (json_A.取文本 (超级列表框1.取标题 (N － 1, 0) ＋ “[1]”))<br />         现件数 ＝ 原件数 ＋ 到整数 (超级列表框1.取标题 (N － 1, 1))<br />         json_A.置文本 (超级列表框1.取标题 (N － 1, 0) ＋ “[1]”, 到文本 (现件数))<br />         调试输出 (“-------------第” ＋ 到文本 (N) ＋ “次---------------”)<br />         调试输出 (“原件数：” ＋ 到文本 (原件数) ＋ “&现件数：” ＋ 到文本 (现件数))<br />         调试输出 (json_A.取文本 (超级列表框1.取标题 (N － 1, 0) ＋ “[1]”))<br />     .默认<br />         json_A.置数组 (超级列表框1.取标题 (N － 1, 0))<br />         .计次循环首 (列数, M)<br />             json_A.置文本 (超级列表框1.取标题 (N － 1, 0) ＋ “[” ＋ 到文本 (M － 1) ＋ “]”, 超级列表框1.取标题 (N － 1, M － 1))<br />         .计次循环尾 ()<br />     .判断结束<br /> <br /> .计次循环尾 ()<br /> 调试输出 (json_A.到文本 (, , , ))<br /> <br /> json_A.取所有属性名 (, 组名)<br /> K ＝ 取数组成员数 (组名)<br /> S ＝ json_A.取成员数 (“西安”)<br /> 调试输出 (到文本 (K) ＋ “&” ＋ 到文本 (S))<br /> 调试输出 (组名)<br /> .计次循环首 (K, T)<br />     表项索引 ＝ 超级列表框2.插入表项 (, , , , , )<br />     lj ＝ 组名 [T]<br />     .计次循环首 (S, I)<br />         超级列表框2.置标题 (表项索引, I － 1, json_A.取文本 (lj ＋ “[” ＋ 到文本 (I － 1) ＋ “]”))<br />     .计次循环尾 ()<br /> .计次循环尾 ()

aa.e (876.27 KB, 下载次数: 28)

2020-4-12 23:08 上传

点击文件名下载附件


实在难得把xx一个一个敲进去，简化了一下，但是实际上都是他用计次循环在做，我想应该能满足你的要求。分数拿来

大司命

插入表项前先查找表项，如果返回大于-1，说明要查找的内容存在，用返回的索引处理即可~

yanmo

能不能给个列表框的代码，生成这个太费劲了

SpringZ

不懂的话追问

wunan2002

去重复 明白  求和费劲....

微妙

wunan2002 发表于 2020-4-12 16:29
去重复 明白  求和费劲....

求什么的和？件数吗

wunan2002

是的   每个客户的件数总和

toxicbug

你的订单号都不同呀，相当于按名称，把订单汇总？

想学易语言

找到相同的名称之后，再超级列表框分别取两行的文本，  取出第4列的文本到数值，然后相加即可。