|
发表于 2011-12-19 20:27:47
|
显示全部楼层
安徽省宿州市
[e].版本 2
.支持库 eDB
.支持库 eGrid
.支持库 spec
.子程序 读取
.局部变量 n1, 整数型
.局部变量 n2, 整数型
.局部变量 temlp, 文本型
连续赋值 (真, 标签1.可视, 进度条1.可视)
记录集1.打开 (“SELECT * FROM 表”, #SQL语句)
高级表格1.行数 = 记录集1.记录数量 + 1
进度条1.最大位置 = 高级表格1.行数 - 1
标签1.标题 = “读取中”
.计次循环首 (记录集1.记录数量, n1)
.计次循环首 (6, n2)
记录集1.读文本 (n2 - 1, temlp)
高级表格1.置数据 (n1, n2 - 1, #表格常量.文本型, temlp)
.计次循环尾 ()
记录集1.到下一条 ()
进度条1.位置 = n1
.计次循环尾 ()
.如果真 (进度条1.最大位置 = 进度条1.位置)
标签1.标题 = “读取完毕”
信息框 (“读取完毕”, 0, )
延迟 (2000)
连续赋值 (假, 标签1.可视, 进度条1.可视)
[/e] |
|