易语言 文本分割 写入EDB 数据库

Question

.版本 2
.支持库 iext
.支持库 spec

.程序集 窗口程序集_启动窗口

.子程序 _按钮1_被单击
.局部变量 cj, 整数型
.局部变量 文件号, 整数型
.局部变量 该行内容, 文本型
.局部变量 数据1, 文本型, , "0"
.局部变量 文件名, 文本型

' 打开txt文件读取
通用对话框1.过滤器 ＝ “文本文件(*.txt)|*.txt”
.如果真 (通用对话框1.打开 () ＝ 假)
返回 ()
.如果真结束
文件名 ＝ 通用对话框1.文件名
文件号 ＝ 打开文件 (文件名, , )
超级列表框1.全部删除 ()
打开 (“ad.edb”, , , , , , )
.判断循环首 (是否在文件尾 (文件号, 真) ＝ 假)

该行内容 ＝ 读入一行 (文件号)
数据1 ＝ 分割文本 (该行内容, “::”, )
调试输出 (数据1)
写 (1, 数据1 [1])
写 (2, 数据1 [2])
cj ＝ 超级列表框1.插入表项 (, , , , , )
超级列表框1.置标题 (cj, 0, 数据1 [1])
超级列表框1.置标题 (cj, 1, 数据1 [2])

.判断循环尾 ()

关闭 ()

==============================================
这样的话，超级列表框会显示，但是，不能写入到ad.edb这个数据库，大神告诉怎么办。

Answer 1

我记得e数据库的话需要在写数据之前加一条 加空记录 () 命令。你试一下对不对。

追问

可以了，刚才加了不行，应该是刚才哪里出错了。