数据库里插入到超级列表框里

调用了模块，我把模块和源码例子都打包好了。

.判断开始 (数据库_.连接Access (获取运行目录 () ＋ “lzy.mdb”, ) ＝ 假)
信息框_提示 (“数据库连接失败！”, , , #错误图标, )
结束 ()
.默认
调试输出 (“数据库连接成功”)
.判断结束
列表框_查询.初始化 (超级列表框_高速.取窗口句柄 (), , )

记录集_.打开 (“select * from wl”, 数据库_, , )
总行数 ＝ 记录集_.记录数量 ()
记录集_.到首记录 ()
超级列表框_高速.全部删除 ()
重定义数组 (数据_, 假, 总行数)
.计次循环首 (总行数, 行数)
重定义数组 (数据_ [行数].列标题, 假, 超级列表框_高速.取列数 ())
.计次循环首 (超级列表框_高速.取列数 (), 列数)
数据_ [行数].列标题 [列数] ＝ 记录集_.读入序号记录 (列数 － 1).取文本 ()
.计次循环尾 ()
记录集_.到下一条 ()
.计次循环尾 ()
记录集_.关闭 ()
列表框_查询.高速插入表项 (, 数据_, )