SQL填允高级表格通用模块.

fq7889

SQL填允高级表格通用模块.   
为什么只有两行数据还很慢?有没有快点的办法?
.版本 2
.支持库 eGrid
.支持库 ADODB

.子程序 填充高级表格子程序, 逻辑型, 公开, 用于查询并填允高级表格
.参数 sql, 文本型
.参数 表格, 高级表格
.参数 字段类型, 整数型, 可空 数组
.参数 列数, 整数型, 可空
.参数 是否增加行, 逻辑型, 可空
.局部变量 I, 整数型
.局部变量 Y, 整数型
.局部变量 索引, 整数型

.如果真 (sql ＝ “”)
返回 (假)
.如果真结束
.如果真 (全局记录集.关闭 () ＝ 假)
全局记录集.关闭 ()
.如果真结束
载入 (进度窗口, , 假)
全局记录集 ＝ 数据库连接.执行 (sql, , #命令类型.查询语句)
.如果真 (是否已创建 (进度窗口))
进度窗口.销毁 ()
.如果真结束

.如果 (全局记录集.是否为空 () ≠ 真)
全局记录集.到首记录 ()
Y ＝ 1
.判断循环首 (全局记录集.尾记录后 ＝ 假)
.如果真 (是否增加行)
表格.插入行 (“”, )

.如果真结束
.计次循环首 (列数, I)
表格.置数据 (Y, I － 1, #表格常量.文本型, 到文本 (全局记录集.读 (I － 1, 字段类型 [I])))
.计次循环尾 ()
Y ＝ Y ＋ 1
全局记录集.到下一条 ()
.判断循环尾 ()
.否则
信息框 (数据库连接.最后错误, 0, )
返回 (假)
.如果结束
返回 (真)