将数据库读入超级列表框

.如果 (打开 (取运行目录 () ＋ “\转换好的E数据库.edb”, , , , , , ))
超级列表框1.插入列 (, “编 号”, 50, , , )
超级列表框1.插入列 (, “货物名称”, 60, , , )
超级列表框1.插入列 (, “型 号”, 80, , , )
超级列表框1.插入列 (, “单 价”, 60, , , )
超级列表框1.插入列 (, “日 期”, 100, , , )
超级列表框1.全部删除 ()
到首记录 ()
.计次循环首 (取记录数 (), )
超级列表框1.插入表项 (, 数值到格式文本 (读 (“ID”), , 假), , , , )
超级列表框1.置标题 (超级列表框1.取表项数 () － 1, 1, 读 (“YHM”))
超级列表框1.置标题 (超级列表框1.取表项数 () － 1, 2, 读 (“MM”))
超级列表框1.置标题 (超级列表框1.取表项数 () － 1, 3, 数值到格式文本 (读 (“JE”), , 假))
超级列表框1.置标题 (超级列表框1.取表项数 () － 1, 4, 到文本 (读 (“RQ”)))
跳过 ()
.计次循环尾 ()
.否则
信息框 (“数据库打开失败”, 0, )