运行报错，应该是超级列表框的问题 - 精易论坛

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

变量名	类型	静态	数组	备注
记录集句柄	整数型
索引	整数型

调试输出 (外部数据库1.打开MDB数据库 (取运行目录 () ＋ “\liushui.mdb”, , , , ))
记录集句柄＝外部数据库1.cha询 (“SELECT 日期, 供应商, SUM(金额) AS total_amount FROM 日现金表 GROUP BY 日期, 供应商”)
调试输出 (记录集句柄)

判断循环首 (外部数据库1.尾记录后 (记录集句柄) ＝假)

索引＝超级列表框1.插入表项 (, 外部数据库1.读 (记录集句柄, “日期”), , , , )

超级列表框1.置标题 (索引, 0, 外部数据库1.读 (记录集句柄, 1))

超级列表框1.置标题 (索引, 1, 外部数据库1.读 (记录集句柄, 2))

超级列表框1.置标题 (索引, 2, 外部数据库1.读 (记录集句柄, 3))

外部数据库1.到后一记录 (记录集句柄)

判断循环尾 ()
外部数据库1.关闭记录集 (记录集句柄)

i支持库列表	支持库注释
spec	特殊功能支持库
iext	扩展界面支持库一