易语言利用SQL语句实现超级列表框 带合计行

超级列表框的合计行，一直令人比较头痛，得写好几行代码，加上循环相加才能计算出合计，实在是有些费劲。

经研究，发现可以利用SQL语句，轻松实现 超级列表框合计行。

.版本 2
.支持库 eDB
.支持库 iext

.程序集 窗口程序集_启动窗口
.程序集变量 临时文本, 文本型

.子程序 __启动窗口_创建完毕

数据库连接1.连接Access (取运行目录 () ＋ “db1.mdb”, “”)
记录集1.置连接 (数据库连接1)
记录集1.打开 (“Select * FROM 表1  UNION Select '总计','','',Sum(数量),Sum(金额) FROM 表1”, #SQL语句, )
超级列表框1.全部删除 ()

记录集1.到首记录 ()
.判断循环首 (记录集1.尾记录后 ＝ 假)
    超级列表框1.插入表项 (, , , , , )

    记录集1.读文本 (“ID”, 临时文本)
    超级列表框1.置标题 (超级列表框1.取表项数 () － 1, 1, 临时文本)

    记录集1.读文本 (“商品代码”, 临时文本)
    超级列表框1.置标题 (超级列表框1.取表项数 () － 1, 2, 临时文本)

    记录集1.读文本 (“商品名称”, 临时文本)
    超级列表框1.置标题 (超级列表框1.取表项数 () － 1, 3, 临时文本)

    记录集1.读文本 (“数量”, 临时文本)
    超级列表框1.置标题 (超级列表框1.取表项数 () － 1, 4, 数值到格式文本 (到数值 (临时文本), 0, 假))

    记录集1.读文本 (“金额”, 临时文本)
    超级列表框1.置标题 (超级列表框1.取表项数 () － 1, 5, 数值到格式文本 (到数值 (临时文本), 2, 假))

    记录集1.到下一条 ()
.判断循环尾 ()
记录集1.关闭 ()

@谢健