易语言高级表格怎么显示edb数据库中数据

我的是这样弄的:

.版本 2

.支持库 iext

.子程序 _主窗口_创建完毕

.如果 (文件是否存在 (取运行目录 () + “\data\” + “特种设备台账.edb”) = 假)

信息框 (“数据表不存在!”, 16, “提示”)

.否则

打开 (取运行目录 () + “\data\” + “特种设备台账.edb”, , , 4, , “”, )

.如果结束

_监控时钟_周期事件 ()

读取行 ()

透明标签1.左边 = 主窗口.宽度 - 透明标签1.宽度 - (选择夹1.宽度 - 透明标签1.宽度) ÷ 2

当前时间.时钟周期 = 1000

.版本 2

.支持库 eGrid

.子程序 读取行

.局部变量 变量1, 整数型

高级表格.置列宽 (0, 0)

高级表格.置列宽 (1, 20)

高级表格.置数据 (0, 1, 1, “序号”)

高级表格.置列宽 (2, 100)

高级表格.置数据 (0, 2, 1, “设备名称”)

高级表格.置列宽 (3, 100)

高级表格.置数据 (0, 3, 1, “单位内编码”)

高级表格.置列宽 (4, 100)

高级表格.置数据 (0, 4, 1, “规格型号”)

高级表格.置列宽 (5, 100)

高级表格.置数据 (0, 5, 1, “安装部位”)

高级表格.置列宽 (6, 100)

高级表格.置数据 (0, 6, 1, “使用证编号”)

高级表格.置列宽 (7, 100)

高级表格.置数据 (0, 7, 1, “年度检验日期”)

高级表格.置列宽 (8, 100)

高级表格.置数据 (0, 8, 1, “年度检验有效期”)

高级表格.置列宽 (9, 100)

高级表格.置数据 (0, 9, 1, “定期检验日期”)

高级表格.置列宽 (10, 100)

高级表格.置数据 (0, 10, 1, “定期检验有效期”)

高级表格.置列宽 (11, 100)

高级表格.置数据 (0, 11, 1, “安装就位日期”)

高级表格.置列宽 (12, 100)

高级表格.置数据 (0, 12, 1, “报废停用日期”)

高级表格.置列宽 (13, 100)

高级表格.置数据 (0, 13, 1, “重大维修日期”)

.计次循环首 (取记录数 (), 变量1)

跳到 (变量1)

高级表格.插入行 (“”, 高级表格.行数)

高级表格.置数据 (高级表格.行数 - 1, 1, 1, 读 (1))

高级表格.置数据 (高级表格.行数 - 1, 2, 1, 读 (2))

高级表格.置数据 (高级表格.行数 - 1, 3, 1, 读 (3))

高级表格.置数据 (高级表格.行数 - 1, 4, 1, 读 (4))

高级表格.置数据 (高级表格.行数 - 1, 5, 1, 读 (5))

高级表格.置数据 (高级表格.行数 - 1, 6, 1, 读 (6))

高级表格.置数据 (高级表格.行数 - 1, 7, 1, 读 (7))

高级表格.置数据 (高级表格.行数 - 1, 8, 1, 读 (8))

高级表格.置数据 (高级表格.行数 - 1, 9, 1, 读 (9))

高级表格.置数据 (高级表格.行数 - 1, 10, 1, 读 (10))

高级表格.置数据 (高级表格.行数 - 1, 11, 1, 读 (11))

高级表格.置数据 (高级表格.行数 - 1, 12, 1, 读 (12))

高级表格.置数据 (高级表格.行数 - 1, 13, 1, 读 (13))

.计次循环尾 ()

编号排序 ()

画一个超级列表框，

.版本 2

.支持库 iext

.局部变量 a, 整数型

.局部变量 b, 整数型.

超级列表框1.全部删除 ()

.计次循环首 (取记录数 (), a)

跳到 (a)

b ＝ 超级列表框1.插入表项 (, , , , , )

超级列表框1.置标题 (b, 0, 到文本 (a))‘这里是序号

超级列表框1.置标题 (b, 1, 读 (“名称”))’这里是读数据库EDB里的字段名称

超级列表框1.置标题 (b, 2, 到文本 (读 (“数量”)))’这里是读数据库EDB里的字段名称

.计次循环尾 ()

这样就能将数据库里的所有字段都取出来，并排列在列表框中。

.子程序

__启动窗口_创建完毕

打开

(取运行目录

()

＋

“\1.edb”,

,

,

,

,

,

)

到首记录

()

.判断循环首

(尾记录后

()

＝

假)

组合框1.加入项目

(读

(“账号”),

)

跳过

()

.判断循环尾

()

这是打开我的1.edb数据库，数据库里有账号一个字段，文本型。这里组合框不能用整数型，不然会出现数据类型不匹配的提示不能读入字段。

---