.如果 (打开 (取运行目录 () ＋ “\转换好的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, )