mdb数据库高级表格分类小计与合计 - 精易论坛

子程序名	返回值类型	公开	备注
子程序读数据库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.置数据 (行次, 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 />
.变量循环尾 ()