易语言报表统计功能例程可打印

易语言报表统计源码是高级表格支持库的应用例程。

.计次循环首 (取数组成员数 (物品资料数组), a)
.判断循环首 (查找 (读 (“名称”) ＝ 物品资料数组 [a] 且 读 (“日期”) ≥ 到文本 (取日期 (日期框开始.今天)) 且 读 (“日期”) ≤ 到文本 (取日期 (日期框结束.今天)) 且 读 (“方式”) ＝ “入库”) ＝ 真)
跳过 ()
.判断循环尾 ()
高级表格1.插入行 (物品资料数组 [a], a)
高级表格1.置数据 (a, 1, 1, 单位 [a])
高级表格1.置数据 (a, 2, 1, 到文本 (求和 (到数值 (读 (“数量”)), 读 (“名称”) ＝ 物品资料数组 [a] 且 读 (“日期”) ≥ 到文本 (取日期 (日期框开始.今天)) 且 读 (“日期”) ≤ 到文本 (取日期 (日期框结束.今天)) 且 读 (“方式”) ＝ “入库”)))
.计次循环尾 ()
置当前库 (“wp”)
到首记录 ()
.计次循环首 (取记录数 (), v)
高级表格1.置数据 (v, 3, 1, “” ＋ 读 (“物品单价”))
高级表格1.置数据 (v, 4, 1, 到文本 (到数值 (高级表格1.取数据 (v, 2)) × 到数值 (高级表格1.取数据 (v, 3))))
跳过 ()
.计次循环尾 ()
置当前库 (“max”)
到首记录 ()
.计次循环首 (取数组成员数 (物品资料数组), a)
.判断循环首 (查找 (读 (“名称”) ＝ 物品资料数组 [a] 且 读 (“日期”) ≥ 到文本 (取日期 (日期框开始.今天)) 且 读 (“日期”) ≤ 到文本 (取日期 (日期框结束.今天)) 且 读 (“方式”) ＝ “出库”) ＝ 真)
跳过 ()
.判断循环尾 ()
高级表格1.置数据 (a, 5, 1, 到文本 (求和 (到数值 (读 (“数量”)), 读 (“名称”) ＝ 物品资料数组 [a] 且 读 (“日期”) ≥ 到文本 (取日期 (日期框开始.今天)) 且 读 (“日期”) ≤ 到文本 (取日期 (日期框结束.今天)) 且 读 (“方式”) ＝ “出库”)))
.计次循环尾 ()
置当前库 (“wp”)
到首记录 ()
.计次循环首 (取记录数 (), v)
高级表格1.置数据 (v, 6, 1, “” ＋ 读 (“物品单价”))
高级表格1.置数据 (v, 7, 1, 到文本 (到数值 (高级表格1.取数据 (v, 5)) × 到数值 (高级表格1.取数据 (v, 6))))
跳过 ()
.计次循环尾 ()