高级表格统计

f15007937680

打扰各位的大哥了
希望大佬可以帮我修改一下

   就是只提取超级列表框2里面有的内容根据不同的规格统计出来，没有的就不提取
格式就像表格里面的那样

zainex

  

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

变量名	类 型	静态	数组	备 注
数	整数型
偏移	整数型
值	整数型
品名	文本型
规格	文本型
部门	文本型
数量	整数型
所在行	整数型
所有部门	文本型		0
所有数量	整数型		0
合计	整数型		0
信息	节点
单位	节点		0
下标	整数型
当前	整数型
临时	整数型
量	整数型
每行列数	整数型
总数	整数型
起点	整数型
号	整数型
循环次数	整数型
当前所在行	整数型
每排数量	整数型
添加分隔	逻辑型

添加分隔 ＝ 假  ' 设置为 真, 每排都会被分隔开
每排数量 ＝ 5  ' 不能小于1
如果真 (每排数量 ＜ 1)
返回 ()
每行列数 ＝ 选择 (超级列表框2.取表项数 () ≤ 每排数量, 超级列表框2.取表项数 (), 每排数量)
高级表格3.列数 ＝ 每行列数 × 2
高级表格3.行数 ＝ 1
高级表格3.置对齐方式 (0, 0, 0, 高级表格3.列数, 2)
重定义数组 (合计, 假, 超级列表框2.取表项数 ())
每行列数 ＝ 超级列表框2.取表项数 ()
循环判断首 ()
当前所在行 ＝ 选择 (高级表格3.行数 ＜ 3, 3, 高级表格3.行数 ＋ 3)
高级表格3.行数 ＝ 当前所在行
如果 (循环次数 ＋ 每排数量 ≤ 每行列数)
循环次数 ＝ 循环次数 ＋ 每排数量
每排数量 ＝ 每行列数 － 循环次数
计次循环首 (每排数量, 号)
数 ＝ 数 ＋ 1
偏移 ＝ (号 － 1) × 2
高级表格3.置数据 (起点, 偏移, 1, 超级列表框2.取标题 (数 － 1, 0))
高级表格3.合并 (起点, 偏移, 起点, 1 ＋ 偏移)
高级表格3.合并 (起点 ＋ 1, 偏移, 起点 ＋ 1, 1 ＋ 偏移)
高级表格3.置数据 (起点 ＋ 1, 偏移, 1, 到大写 (超级列表框2.取标题 (数 － 1, 1)))  ' 标题统一大写
高级表格3.置数据 (起点 ＋ 2, 偏移, 1, “部门”)
高级表格3.置数据 (起点 ＋ 2, 1 ＋ 偏移, 1, “数量”)
品名 ＝ 超级列表框2.取标题 (数 － 1, 0)
规格 ＝ 到大写 (超级列表框2.取标题 (数 － 1, 1))  ' 规格不区分大小写
计次循环首 (超级列表框1.取表项数 (), 值)
如果真 (超级列表框1.取标题 (值 － 1, 1) ＝ 品名 且 超级列表框1.取标题 (值 － 1, 2) ＝ 规格)
部门 ＝ 超级列表框1.取标题 (值 － 1, 0)
数量 ＝ 到整数 (超级列表框1.取标题 (值 － 1, 4))
如果 (信息.加入属性 (品名 ＋ #换行符 ＋ 规格, 下标 ＋ 1) ＝ 假)
信息.取数值 (品名 ＋ #换行符 ＋ 规格, 当前)
下标 ＝ 下标 ＋ 1
当前 ＝ 下标
重定义数组 (单位, 真, 当前)
如果真 (单位 [当前].加入属性 (部门, 数量) ＝ 假)
单位 [当前].取数值 (部门, 临时)
单位 [当前].修改属性 (部门, 临时 ＋ 数量)


计次循环尾 ()
清除数组 (所有部门)
清除数组 (所有数量)
如果真 (信息.取数值 (品名 ＋ #换行符 ＋ 规格, 当前) ＝ 真)
单位 [当前].取全部属性名 (所有部门)
重定义数组 (所有数量, 假, 取数组成员数 (所有部门))
计次循环首 (取数组成员数 (所有部门), 量)
单位 [当前].取数值 (所有部门 [量], 临时)
所有数量 [量] ＝ 临时
计次循环尾 ()
所在行 ＝ 当前所在行
计次循环首 (取数组成员数 (所有部门), 值)
如果真 (所在行 ≥ 高级表格3.行数)
高级表格3.行数 ＝ 所在行 ＋ 1
高级表格3.置数据 (所在行, 偏移, 1, 所有部门 [值])
高级表格3.置数据 (所在行, 1 ＋ 偏移, 1, 所有数量 [值])
合计 [数] ＝ 合计 [数] ＋ 所有数量 [值]
所在行 ＝ 所在行 ＋ 1
计次循环尾 ()
计次循环尾 ()
高级表格3.行数 ＝ 高级表格3.行数 ＋ 1
计次循环首 (每排数量, 号)
偏移 ＝ (号 － 1) × 2
高级表格3.置数据 (高级表格3.行数 － 1, 偏移, 1, “合计”)
高级表格3.置数据 (高级表格3.行数 － 1, 1 ＋ 偏移, 1, 合计 [数 － 每排数量 ＋ 号])
计次循环尾 ()
如果真 (添加分隔 ＝ 真)
高级表格3.行数 ＝ 高级表格3.行数 ＋ 1
高级表格3.合并 (高级表格3.行数 － 1, 0, 高级表格3.行数 － 1, 高级表格3.列数 － 1)
起点 ＝ 高级表格3.行数
总数 ＝ 总数 ＋ 每排数量
循环判断尾 (总数 ＜ 超级列表框2.取表项数 ())
如果真 (添加分隔 ＝ 真)
高级表格3.行数 ＝ 高级表格3.行数 － 1

i支持库列表	支持库注释
EDataStructure	数据结构支持库
iext	扩展界面支持库一
eGrid	高级表格支持库

.版本 2<br /> .支持库 EDataStructure<br /> .支持库 iext<br /> .支持库 eGrid<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 数, 整数型<br /> .局部变量 偏移, 整数型<br /> .局部变量 值, 整数型<br /> .局部变量 品名, 文本型<br /> .局部变量 规格, 文本型<br /> .局部变量 部门, 文本型<br /> .局部变量 数量, 整数型<br /> .局部变量 所在行, 整数型<br /> .局部变量 所有部门, 文本型, , "0"<br /> .局部变量 所有数量, 整数型, , "0"<br /> .局部变量 合计, 整数型, , "0"<br /> .局部变量 信息, 节点<br /> .局部变量 单位, 节点, , "0"<br /> .局部变量 下标, 整数型<br /> .局部变量 当前, 整数型<br /> .局部变量 临时, 整数型<br /> .局部变量 量, 整数型<br /> .局部变量 每行列数, 整数型<br /> .局部变量 总数, 整数型<br /> .局部变量 起点, 整数型<br /> .局部变量 号, 整数型<br /> .局部变量 循环次数, 整数型<br /> .局部变量 当前所在行, 整数型<br /> .局部变量 每排数量, 整数型<br /> .局部变量 添加分隔, 逻辑型<br /> <br /> 添加分隔 ＝ 假  ' 设置为 真, 每排都会被分隔开<br /> 每排数量 ＝ 5  ' 不能小于1<br /> .如果真 (每排数量 ＜ 1)<br />     返回 ()<br /> .如果真结束<br /> 每行列数 ＝ 选择 (超级列表框2.取表项数 () ≤ 每排数量, 超级列表框2.取表项数 (), 每排数量)<br /> 高级表格3.列数 ＝ 每行列数 × 2<br /> 高级表格3.行数 ＝ 1<br /> 高级表格3.置对齐方式 (0, 0, 0, 高级表格3.列数, 2)<br /> 重定义数组 (合计, 假, 超级列表框2.取表项数 ())<br /> 每行列数 ＝ 超级列表框2.取表项数 ()<br /> .循环判断首 ()<br />     当前所在行 ＝ 选择 (高级表格3.行数 ＜ 3, 3, 高级表格3.行数 ＋ 3)<br />     高级表格3.行数 ＝ 当前所在行<br />     .如果 (循环次数 ＋ 每排数量 ≤ 每行列数)<br />         循环次数 ＝ 循环次数 ＋ 每排数量<br />     .否则<br />         每排数量 ＝ 每行列数 － 循环次数<br />     .如果结束<br />     .计次循环首 (每排数量, 号)<br />         数 ＝ 数 ＋ 1<br />         偏移 ＝ (号 － 1) × 2<br />         高级表格3.置数据 (起点, 偏移, 1, 超级列表框2.取标题 (数 － 1, 0))<br />         高级表格3.合并 (起点, 偏移, 起点, 1 ＋ 偏移)<br />         高级表格3.合并 (起点 ＋ 1, 偏移, 起点 ＋ 1, 1 ＋ 偏移)<br />         高级表格3.置数据 (起点 ＋ 1, 偏移, 1, 到大写 (超级列表框2.取标题 (数 － 1, 1)))  ' 标题统一大写<br />         高级表格3.置数据 (起点 ＋ 2, 偏移, 1, “部门”)<br />         高级表格3.置数据 (起点 ＋ 2, 1 ＋ 偏移, 1, “数量”)<br />         品名 ＝ 超级列表框2.取标题 (数 － 1, 0)<br />         规格 ＝ 到大写 (超级列表框2.取标题 (数 － 1, 1))  ' 规格不区分大小写<br />         .计次循环首 (超级列表框1.取表项数 (), 值)<br />             .如果真 (超级列表框1.取标题 (值 － 1, 1) ＝ 品名 且 超级列表框1.取标题 (值 － 1, 2) ＝ 规格)<br />                 部门 ＝ 超级列表框1.取标题 (值 － 1, 0)<br />                 数量 ＝ 到整数 (超级列表框1.取标题 (值 － 1, 4))<br />                 .如果 (信息.加入属性 (品名 ＋ #换行符 ＋ 规格, 下标 ＋ 1) ＝ 假)<br />                     信息.取数值 (品名 ＋ #换行符 ＋ 规格, 当前)<br />                 .否则<br />                     下标 ＝ 下标 ＋ 1<br />                     当前 ＝ 下标<br />                     重定义数组 (单位, 真, 当前)<br />                 .如果结束<br />                 .如果真 (单位 [当前].加入属性 (部门, 数量) ＝ 假)<br />                     单位 [当前].取数值 (部门, 临时)<br />                     单位 [当前].修改属性 (部门, 临时 ＋ 数量)<br />                 .如果真结束<br /> <br />             .如果真结束<br /> <br />         .计次循环尾 ()<br />         清除数组 (所有部门)<br />         清除数组 (所有数量)<br />         .如果真 (信息.取数值 (品名 ＋ #换行符 ＋ 规格, 当前) ＝ 真)<br />             单位 [当前].取全部属性名 (所有部门)<br />             重定义数组 (所有数量, 假, 取数组成员数 (所有部门))<br />             .计次循环首 (取数组成员数 (所有部门), 量)<br />                 单位 [当前].取数值 (所有部门 [量], 临时)<br />                 所有数量 [量] ＝ 临时<br />             .计次循环尾 ()<br />         .如果真结束<br />         所在行 ＝ 当前所在行<br />         .计次循环首 (取数组成员数 (所有部门), 值)<br />             .如果真 (所在行 ≥ 高级表格3.行数)<br />                 高级表格3.行数 ＝ 所在行 ＋ 1<br />             .如果真结束<br />             高级表格3.置数据 (所在行, 偏移, 1, 所有部门 [值])<br />             高级表格3.置数据 (所在行, 1 ＋ 偏移, 1, 所有数量 [值])<br />             合计 [数] ＝ 合计 [数] ＋ 所有数量 [值]<br />             所在行 ＝ 所在行 ＋ 1<br />         .计次循环尾 ()<br />     .计次循环尾 ()<br />     高级表格3.行数 ＝ 高级表格3.行数 ＋ 1<br />     .计次循环首 (每排数量, 号)<br />         偏移 ＝ (号 － 1) × 2<br />         高级表格3.置数据 (高级表格3.行数 － 1, 偏移, 1, “合计”)<br />         高级表格3.置数据 (高级表格3.行数 － 1, 1 ＋ 偏移, 1, 合计 [数 － 每排数量 ＋ 号])<br />     .计次循环尾 ()<br />     .如果真 (添加分隔 ＝ 真)<br />         高级表格3.行数 ＝ 高级表格3.行数 ＋ 1<br />         高级表格3.合并 (高级表格3.行数 － 1, 0, 高级表格3.行数 － 1, 高级表格3.列数 － 1)<br />     .如果真结束<br />     起点 ＝ 高级表格3.行数<br />     总数 ＝ 总数 ＋ 每排数量<br /> .循环判断尾 (总数 ＜ 超级列表框2.取表项数 ())<br /> .如果真 (添加分隔 ＝ 真)<br />     高级表格3.行数 ＝ 高级表格3.行数 － 1

Ruang

demo.e (19.89 KB, 下载次数: 6)

7 天前 上传

点击文件名下载附件

补充内容 (2025-8-4 15:40):
只提取了超级列表框2到高级列表框，不知道对不对！

补充内容 (2025-8-4 15:41):
有问题请指出

补充内容 (2025-8-4 15:57):
你这不是已经做出来了么

f15007937680

Ruang 发表于 2025-8-4 15:23
补充内容 (2025-8-4 15:40):
只提取了超级列表框2到高级列表框，不知道对不对！

感谢你的回复 我需要的是 相同的物品不同的规格需要分开统计的 比如 我的饮料1 250ml 和饮料1 500ml 这2个是不同规格的 这里有个问题就是 相同的物品会统计到一起去没办法分开

Ruang

f15007937680 发表于 2025-8-4 21:24
感谢你的回复 我需要的是 相同的物品不同的规格需要分开统计的 比如 我的饮料1 250ml 和饮料1 500ml 这2 ...

相同的物品不同规格来区分

走一回

这个建议用数。据库的统计cha询功能来实现，最后输出结果可能 更合适

f15007937680

Ruang 发表于 2025-8-4 21:32
相同的物品不同规格来区分

是的 物品名称相同 但是规格不同 需要分开统计

zainex

可以用 节点 实现:

  

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

变量名	类 型	静态	数组	备 注
数	整数型
偏移	整数型
值	整数型
品名	文本型
规格	文本型
部门	文本型
数量	整数型
所在行	整数型
所有部门	文本型		0
所有数量	整数型		0
合计	整数型		0
信息	节点
单位	节点		0
下标	整数型
当前	整数型
临时	整数型
量	整数型

高级表格3.列数 ＝ 超级列表框2.取表项数 () × 2
高级表格3.行数 ＝ 3
高级表格3.置对齐方式 (0, 0, 0, 高级表格3.列数, 2)
重定义数组 (合计, 假, 超级列表框2.取表项数 ())
计次循环首 (超级列表框2.取表项数 (), 数)
偏移 ＝ (数 － 1) × 2
高级表格3.置数据 (0, 偏移, 1, 超级列表框2.取标题 (数 － 1, 0))
高级表格3.合并 (0, 偏移, 0, 1 ＋ 偏移)
高级表格3.合并 (1, 偏移, 1, 1 ＋ 偏移)
高级表格3.置数据 (1, 偏移, 1, 超级列表框2.取标题 (数 － 1, 1))
高级表格3.置数据 (2, 偏移, 1, “部门”)
高级表格3.置数据 (2, 1 ＋ 偏移, 1, “数量”)
品名 ＝ 超级列表框2.取标题 (数 － 1, 0)
规格 ＝ 超级列表框2.取标题 (数 － 1, 1)
计次循环首 (超级列表框1.取表项数 (), 值)
如果真 (超级列表框1.取标题 (值 － 1, 1) ＝ 品名 且 超级列表框1.取标题 (值 － 1, 2) ＝ 规格)
部门 ＝ 超级列表框1.取标题 (值 － 1, 0)
数量 ＝ 到整数 (超级列表框1.取标题 (值 － 1, 4))
调试输出 (品名, 规格, 部门, 数量)
如果 (信息.加入属性 (品名 ＋ #换行符 ＋ 规格, 下标 ＋ 1) ＝ 假)
信息.取数值 (品名 ＋ #换行符 ＋ 规格, 当前)
下标 ＝ 下标 ＋ 1
当前 ＝ 下标
重定义数组 (单位, 真, 当前)
如果真 (单位 [当前].加入属性 (部门, 数量) ＝ 假)
单位 [当前].取数值 (部门, 临时)
单位 [当前].修改属性 (部门, 临时 ＋ 数量)


计次循环尾 ()
清除数组 (所有部门)
清除数组 (所有数量)
如果真 (信息.取数值 (品名 ＋ #换行符 ＋ 规格, 当前) ＝ 真)
单位 [当前].取全部属性名 (所有部门)
重定义数组 (所有数量, 假, 取数组成员数 (所有部门))
计次循环首 (取数组成员数 (所有部门), 量)
单位 [当前].取数值 (所有部门 [量], 临时)
所有数量 [量] ＝ 临时
计次循环尾 ()
所在行 ＝ 3
计次循环首 (取数组成员数 (所有部门), 值)
如果真 (所在行 ≥ 高级表格3.行数)
高级表格3.行数 ＝ 所在行 ＋ 1
高级表格3.置数据 (所在行, 偏移, 1, 所有部门 [值])
高级表格3.置数据 (所在行, 1 ＋ 偏移, 1, 所有数量 [值])
合计 [数] ＝ 合计 [数] ＋ 所有数量 [值]
所在行 ＝ 所在行 ＋ 1
计次循环尾 ()
计次循环尾 ()
高级表格3.行数 ＝ 高级表格3.行数 ＋ 1
计次循环首 (超级列表框2.取表项数 (), 数)
偏移 ＝ (数 － 1) × 2
高级表格3.置数据 (高级表格3.行数 － 1, 偏移, 1, “合计”)
高级表格3.置数据 (高级表格3.行数 － 1, 1 ＋ 偏移, 1, 合计 [数])
计次循环尾 ()

i支持库列表	支持库注释
EDataStructure	数据结构支持库
eGrid	高级表格支持库
iext	扩展界面支持库一
spec	特殊功能支持库

.版本 2<br /> .支持库 EDataStructure<br /> .支持库 eGrid<br /> .支持库 iext<br /> .支持库 spec<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 数, 整数型<br /> .局部变量 偏移, 整数型<br /> .局部变量 值, 整数型<br /> .局部变量 品名, 文本型<br /> .局部变量 规格, 文本型<br /> .局部变量 部门, 文本型<br /> .局部变量 数量, 整数型<br /> .局部变量 所在行, 整数型<br /> .局部变量 所有部门, 文本型, , "0"<br /> .局部变量 所有数量, 整数型, , "0"<br /> .局部变量 合计, 整数型, , "0"<br /> .局部变量 信息, 节点<br /> .局部变量 单位, 节点, , "0"<br /> .局部变量 下标, 整数型<br /> .局部变量 当前, 整数型<br /> .局部变量 临时, 整数型<br /> .局部变量 量, 整数型<br /> <br /> 高级表格3.列数 ＝ 超级列表框2.取表项数 () × 2<br /> 高级表格3.行数 ＝ 3<br /> 高级表格3.置对齐方式 (0, 0, 0, 高级表格3.列数, 2)<br /> 重定义数组 (合计, 假, 超级列表框2.取表项数 ())<br /> .计次循环首 (超级列表框2.取表项数 (), 数)<br />     偏移 ＝ (数 － 1) × 2<br />     高级表格3.置数据 (0, 偏移, 1, 超级列表框2.取标题 (数 － 1, 0))<br />     高级表格3.合并 (0, 偏移, 0, 1 ＋ 偏移)<br />     高级表格3.合并 (1, 偏移, 1, 1 ＋ 偏移)<br />     高级表格3.置数据 (1, 偏移, 1, 超级列表框2.取标题 (数 － 1, 1))<br />     高级表格3.置数据 (2, 偏移, 1, “部门”)<br />     高级表格3.置数据 (2, 1 ＋ 偏移, 1, “数量”)<br />     品名 ＝ 超级列表框2.取标题 (数 － 1, 0)<br />     规格 ＝ 超级列表框2.取标题 (数 － 1, 1)<br />     .计次循环首 (超级列表框1.取表项数 (), 值)<br />         .如果真 (超级列表框1.取标题 (值 － 1, 1) ＝ 品名 且 超级列表框1.取标题 (值 － 1, 2) ＝ 规格)<br />             部门 ＝ 超级列表框1.取标题 (值 － 1, 0)<br />             数量 ＝ 到整数 (超级列表框1.取标题 (值 － 1, 4))<br />             调试输出 (品名, 规格, 部门, 数量)<br />             .如果 (信息.加入属性 (品名 ＋ #换行符 ＋ 规格, 下标 ＋ 1) ＝ 假)<br />                 信息.取数值 (品名 ＋ #换行符 ＋ 规格, 当前)<br />             .否则<br />                 下标 ＝ 下标 ＋ 1<br />                 当前 ＝ 下标<br />                 重定义数组 (单位, 真, 当前)<br />             .如果结束<br />             .如果真 (单位 [当前].加入属性 (部门, 数量) ＝ 假)<br />                 单位 [当前].取数值 (部门, 临时)<br />                 单位 [当前].修改属性 (部门, 临时 ＋ 数量)<br />             .如果真结束<br /> <br />         .如果真结束<br /> <br />     .计次循环尾 ()<br />     清除数组 (所有部门)<br />     清除数组 (所有数量)<br />     .如果真 (信息.取数值 (品名 ＋ #换行符 ＋ 规格, 当前) ＝ 真)<br />         单位 [当前].取全部属性名 (所有部门)<br />         重定义数组 (所有数量, 假, 取数组成员数 (所有部门))<br />         .计次循环首 (取数组成员数 (所有部门), 量)<br />             单位 [当前].取数值 (所有部门 [量], 临时)<br />             所有数量 [量] ＝ 临时<br />         .计次循环尾 ()<br />     .如果真结束<br />     所在行 ＝ 3<br />     .计次循环首 (取数组成员数 (所有部门), 值)<br />         .如果真 (所在行 ≥ 高级表格3.行数)<br />             高级表格3.行数 ＝ 所在行 ＋ 1<br />         .如果真结束<br />         高级表格3.置数据 (所在行, 偏移, 1, 所有部门 [值])<br />         高级表格3.置数据 (所在行, 1 ＋ 偏移, 1, 所有数量 [值])<br />         合计 [数] ＝ 合计 [数] ＋ 所有数量 [值]<br />         所在行 ＝ 所在行 ＋ 1<br />     .计次循环尾 ()<br /> .计次循环尾 ()<br /> 高级表格3.行数 ＝ 高级表格3.行数 ＋ 1<br /> .计次循环首 (超级列表框2.取表项数 (), 数)<br />     偏移 ＝ (数 － 1) × 2<br />     高级表格3.置数据 (高级表格3.行数 － 1, 偏移, 1, “合计”)<br />     高级表格3.置数据 (高级表格3.行数 － 1, 1 ＋ 偏移, 1, 合计 [数])<br /> .计次循环尾 ()

效果:

f15007937680

zainex 发表于 2025-8-5 16:26
可以用 节点 实现:
[e=1].版本 2
.支持库 EDataStructure

感谢你的回复
这个好像有个没有统计到啊

zainex

你把 超级列表框2 中的小写 ml 改成大写的 ML 就行了.
如果你是不想区分大小写, 可以把:

  

规格 ＝ 超级列表框2.取标题 (数 － 1, 1)

规格 ＝ 超级列表框2.取标题 (数 － 1, 1)

改成:

  

规格 ＝ 到大写 (超级列表框2.取标题 (数 － 1, 1))

规格 ＝ 到大写 (超级列表框2.取标题 (数 － 1, 1))