mdb数据库高级表格分类小计与合计

罗半夜

对数据源只有一个要求：数据源必须首先排序，最好是用SQL语句查询时排序，分类小计与累计不需要在数据源中进行，数据源只需要用SQL语句排序。

  

子程序名	返回值类型	公开	备 注
子程序读数据库1			分类小计，在只有一条记录时不统计小计

变量名	类 型	静态	数组	备 注
句柄	整数型
上一条姓名	文本型
当前姓名	文本型
数量	文本型
金额	文本型
数量小计	整数型
金额小计	整数型
数量合计	整数型
金额合计	整数型
行次	整数型
同类条数	整数型

句柄 ＝ 库.查询 (“SELECT * FROM 测试表 ORDER BY 姓名 DESC”)
库.到首记录 (句柄)
上一条姓名 ＝ 库.读 (句柄, “姓名”)  ' ----------- 初始值’
行次 ＝ 1
高级表格1.行数 ＝ 1
判断循环首 (库.尾记录后 (句柄) ＝ 假)
当前姓名 ＝ 库.读 (句柄, “姓名”)
数量 ＝ 库.读 (句柄, “数量”)
金额 ＝ 库.读 (句柄, “金额”)
数量合计 ＝ 数量合计 ＋ 到整数 (数量)
金额合计 ＝ 金额合计 ＋ 到整数 (金额)
如果真 (上一条姓名 ＝ 当前姓名)
高级表格1.插入行 (, )
高级表格1.置数据 (行次, 0, 1, 到文本 (行次))
高级表格1.置数据 (行次, 1, 1, 当前姓名)
高级表格1.置数据 (行次, 2, 1, 数量)
高级表格1.置数据 (行次, 3, 1, 金额)
行次 ＝ 行次 ＋ 1
同类条数 ＝ 同类条数 ＋ 1
数量小计 ＝ 数量小计 ＋ 到整数 (数量)
金额小计 ＝ 金额小计 ＋ 到整数 (金额)

如果真 (上一条姓名 ≠ 当前姓名)
' 。。。。。。。。。。先写小计行’
如果 (同类条数 ＞ 1)
' 。。。。。。。。。。有两条或两条以上的记录,写小计行，并标识出来’
高级表格1.插入行 (, )
高级表格1.插入行 (, )
高级表格1.置数据 (行次, 0, 1, 到文本 (行次))
高级表格1.置数据 (行次, 1, 1, 上一条姓名 ＋ “  小计”)
高级表格1.置数据 (行次, 2, 1, 数量小计)
高级表格1.置数据 (行次, 3, 1, 金额小计)
高级表格1.置数据 (行次, 4, 1, “共  ” ＋ 到文本 (同类条数) ＋ “  条”)
高级表格1.置单元格背景颜色 (行次, 0, 行次, 高级表格1.列数, #粉红 )
数量小计 ＝ 0
金额小计 ＝ 0
行次 ＝ 行次 ＋ 1
' 。。。。。。。。。。只有一条记录时不写小计行，但要标识出来’
高级表格1.置数据 (行次 － 1, 4, 1, “共  ” ＋ 到文本 (同类条数) ＋ “  条”)
高级表格1.置单元格背景颜色 (行次 － 1, 0, 行次 － 1, 高级表格1.列数, #粉红 )
数量小计 ＝ 0
金额小计 ＝ 0

' 。。。。。。。。。再写当前行’
同类条数 ＝ 0
高级表格1.插入行 (, )
高级表格1.置数据 (行次, 0, 1, 到文本 (行次))
高级表格1.置数据 (行次, 1, 1, 当前姓名)
高级表格1.置数据 (行次, 2, 1, 数量)
高级表格1.置数据 (行次, 3, 1, 金额)
行次 ＝ 行次 ＋ 1
同类条数 ＝ 同类条数 ＋ 1
数量小计 ＝ 数量小计 ＋ 到整数 (数量)
金额小计 ＝ 金额小计 ＋ 到整数 (金额)

库.到后一记录 (句柄)
上一条姓名 ＝ 当前姓名
判断循环尾 ()
库.关闭记录集 (句柄)
' 。。。。。。。。。。写最后的小计行’
如果 (同类条数 ＞ 1)
高级表格1.置数据 (行次, 0, 1, 到文本 (行次))
高级表格1.置数据 (行次, 1, 1, 上一条姓名 ＋ “     小计”)
高级表格1.置数据 (行次, 2, 1, 数量小计)
高级表格1.置数据 (行次, 3, 1, 金额小计)
高级表格1.置数据 (行次, 4, 1, 到文本 (同类条数 ＋ 1))
高级表格1.置单元格背景颜色 (行次, 0, 行次, 高级表格1.列数, #粉红 )
数量小计 ＝ 0
金额小计 ＝ 0
高级表格1.置单元格背景颜色 (行次 － 1, 0, 行次 － 1, 高级表格1.列数, #粉红 )
高级表格1.置数据 (行次 － 1, 4, 1, “共  ” ＋ 到文本 (同类条数) ＋ “  条”)

' 。。。。。。。。写累计行’
高级表格1.置数据 (行次, 0, 1, 到文本 (行次))
高级表格1.置数据 (行次, 1, 1, “累计”)
高级表格1.置数据 (行次, 2, 1, 到文本 (数量合计))
高级表格1.置数据 (行次, 3, 1, 到文本 (金额合计))
高级表格1.置单元格背景颜色 (行次, 0, 行次, 高级表格1.列数, #褐绿 )
' 经实践测试，用计次循环删除空行效果不好，最后几行删除不完全
' ’高级表格_删除空行 (_启动窗口, 高级表格1, 0)
变量循环首 (高级表格1.行数, 1, -1, 行次)
如果真 (到文本 (高级表格1.取数据 (行次, 1)) ＝ “”)
高级表格1.删除行 (行次)

变量循环尾 ()

i支持库列表	支持库注释
eGrid	高级表格支持库

.版本 2<br /> .支持库 eGrid<br /> <br /> .子程序 子程序读数据库1, , , 分类小计，在只有一条记录时不统计小计<br /> .局部变量 句柄, 整数型<br /> .局部变量 上一条姓名, 文本型<br /> .局部变量 当前姓名, 文本型<br /> .局部变量 数量, 文本型<br /> .局部变量 金额, 文本型<br /> .局部变量 数量小计, 整数型<br /> .局部变量 金额小计, 整数型<br /> .局部变量 数量合计, 整数型<br /> .局部变量 金额合计, 整数型<br /> .局部变量 行次, 整数型<br /> .局部变量 同类条数, 整数型<br /> <br /> 句柄 ＝ 库.查询 (“SELECT * FROM 测试表 ORDER BY 姓名 DESC”)<br /> 库.到首记录 (句柄)<br /> 上一条姓名 ＝ 库.读 (句柄, “姓名”)  ' ----------- 初始值’<br /> 行次 ＝ 1<br /> 高级表格1.行数 ＝ 1<br /> .判断循环首 (库.尾记录后 (句柄) ＝ 假)<br />     当前姓名 ＝ 库.读 (句柄, “姓名”)<br />     数量 ＝ 库.读 (句柄, “数量”)<br />     金额 ＝ 库.读 (句柄, “金额”)<br />     数量合计 ＝ 数量合计 ＋ 到整数 (数量)<br />     金额合计 ＝ 金额合计 ＋ 到整数 (金额)<br />     .如果真 (上一条姓名 ＝ 当前姓名)<br />         高级表格1.插入行 (, )<br />         高级表格1.置数据 (行次, 0, 1, 到文本 (行次))<br />         高级表格1.置数据 (行次, 1, 1, 当前姓名)<br />         高级表格1.置数据 (行次, 2, 1, 数量)<br />         高级表格1.置数据 (行次, 3, 1, 金额)<br />         行次 ＝ 行次 ＋ 1<br />         同类条数 ＝ 同类条数 ＋ 1<br />         数量小计 ＝ 数量小计 ＋ 到整数 (数量)<br />         金额小计 ＝ 金额小计 ＋ 到整数 (金额)<br />     .如果真结束<br /> <br />     .如果真 (上一条姓名 ≠ 当前姓名)<br />         ' 。。。。。。。。。。先写小计行’<br />         .如果 (同类条数 ＞ 1)<br />             ' 。。。。。。。。。。有两条或两条以上的记录,写小计行，并标识出来’<br />             高级表格1.插入行 (, )<br />             高级表格1.插入行 (, )<br />             高级表格1.置数据 (行次, 0, 1, 到文本 (行次))<br />             高级表格1.置数据 (行次, 1, 1, 上一条姓名 ＋ “  小计”)<br />             高级表格1.置数据 (行次, 2, 1, 数量小计)<br />             高级表格1.置数据 (行次, 3, 1, 金额小计)<br />             高级表格1.置数据 (行次, 4, 1, “共  ” ＋ 到文本 (同类条数) ＋ “  条”)<br />             高级表格1.置单元格背景颜色 (行次, 0, 行次, 高级表格1.列数, #粉红)<br />             数量小计 ＝ 0<br />             金额小计 ＝ 0<br />             行次 ＝ 行次 ＋ 1<br />         .否则<br />             ' 。。。。。。。。。。只有一条记录时不写小计行，但要标识出来’<br />             高级表格1.置数据 (行次 － 1, 4, 1, “共  ” ＋ 到文本 (同类条数) ＋ “  条”)<br />             高级表格1.置单元格背景颜色 (行次 － 1, 0, 行次 － 1, 高级表格1.列数, #粉红)<br />             数量小计 ＝ 0<br />             金额小计 ＝ 0<br />         .如果结束<br /> <br />         ' 。。。。。。。。。再写当前行’<br />         同类条数 ＝ 0<br />         高级表格1.插入行 (, )<br />         高级表格1.置数据 (行次, 0, 1, 到文本 (行次))<br />         高级表格1.置数据 (行次, 1, 1, 当前姓名)<br />         高级表格1.置数据 (行次, 2, 1, 数量)<br />         高级表格1.置数据 (行次, 3, 1, 金额)<br />         行次 ＝ 行次 ＋ 1<br />         同类条数 ＝ 同类条数 ＋ 1<br />         数量小计 ＝ 数量小计 ＋ 到整数 (数量)<br />         金额小计 ＝ 金额小计 ＋ 到整数 (金额)<br />     .如果真结束<br /> <br />     库.到后一记录 (句柄)<br />     上一条姓名 ＝ 当前姓名<br /> <br /> .判断循环尾 ()<br /> 库.关闭记录集 (句柄)<br /> ' 。。。。。。。。。。写最后的小计行’<br /> .如果 (同类条数 ＞ 1)<br />     高级表格1.置数据 (行次, 0, 1, 到文本 (行次))<br />     高级表格1.置数据 (行次, 1, 1, 上一条姓名 ＋ “     小计”)<br />     高级表格1.置数据 (行次, 2, 1, 数量小计)<br />     高级表格1.置数据 (行次, 3, 1, 金额小计)<br />     高级表格1.置数据 (行次, 4, 1, 到文本 (同类条数 ＋ 1))<br />     高级表格1.置单元格背景颜色 (行次, 0, 行次, 高级表格1.列数, #粉红)<br />     数量小计 ＝ 0<br />     金额小计 ＝ 0<br /> .否则<br />     高级表格1.置单元格背景颜色 (行次 － 1, 0, 行次 － 1, 高级表格1.列数, #粉红)<br />     高级表格1.置数据 (行次 － 1, 4, 1, “共  ” ＋ 到文本 (同类条数) ＋ “  条”)<br /> .如果结束<br /> <br /> ' 。。。。。。。。写累计行’<br /> 高级表格1.置数据 (行次, 0, 1, 到文本 (行次))<br /> 高级表格1.置数据 (行次, 1, 1, “累计”)<br /> 高级表格1.置数据 (行次, 2, 1, 到文本 (数量合计))<br /> 高级表格1.置数据 (行次, 3, 1, 到文本 (金额合计))<br /> 高级表格1.置单元格背景颜色 (行次, 0, 行次, 高级表格1.列数, #褐绿)<br /> <br /> ' 经实践测试，用计次循环删除空行效果不好，最后几行删除不完全<br /> ' ’高级表格_删除空行 (_启动窗口, 高级表格1, 0)<br /> .变量循环首 (高级表格1.行数, 1, -1, 行次)<br />     .如果真 (到文本 (高级表格1.取数据 (行次, 1)) ＝ “”)<br />         高级表格1.删除行 (行次)<br />     .如果真结束<br /> <br /> .变量循环尾 ()

蓝河笑月

感谢分享  支持开源

year1970

感谢分享

lm88818

支持开源~！感谢分享

lm88818

开源精神必须支持~

蓝河笑月

支持开源~！感谢分享

猎人719

感谢分享  

914998915

对数据源只有一个要求：数据源必须首先排序，最好是用SQL语句cha询时排序，分类小计与累计不需要在数据源中进行，数据源只需要用SQL语句排序。

f15007937680

感谢感谢！！！

cckj

支持开源~！感谢分享