Question

易语言数据库搜索，请大家帮我看看我的这段代码有什么问题！

.版本 2
.支持库 iext
n为全局整数型变量
.如果真 (组合框1.现行选中项 ＝ 0)
全部关闭 ()
打开 (取运行目录 () ＋ “\system.dat”, , , , , “3310014877”, )
到首记录 ()
超级列表框1.全部删除 ()
超级列表框1.表项 ＝ { }
n ＝ -1
.判断循环首 (尾记录后 () ＝ 假)
.如果真 (倒找文本 (读 (1), 编辑框6.内容, , 真) ≠ -1)
n ＝ n ＋ 1
超级列表框1.置标题 (n, 0, 读 (1))
超级列表框1.置标题 (n, 1, 读 (2))
超级列表框1.置标题 (n, 2, 读 (3))
超级列表框1.置标题 (n, 3, 读 (4))
跳过 ()
.如果真结束

.判断循环尾 ()
全部关闭 ()

这段代码只要一点确定程序就进入死循环，还有一定几率破坏数据库。
我想做的是在数据库中搜索到包含编辑框6.内容的字段 全部显示到超级列表框中 不包含的就不显示出来！！
请问有更好的办法么？

Answer 1

.版本 2
.支持库 iext

超级列表框1.全部删除 ()
.判断循环首 (尾记录后 () ≠ 真)
' 记录数 ＝ 记录数 ＋ 1
用户 ＝ 读 (#姓名)
性别 ＝ 读 (#性别)
家庭住址 ＝ 读 (#家庭住址)
身份证 ＝ 读 (#身份证)
个人简介 ＝ 读 (#个人简介)

.判断开始 (用户 ＝ 编辑框1.内容 或 性别 ＝ 编辑框1.内容 或 家庭住址 ＝ 编辑框1.内容 或 到文本 (身份证) ＝ 编辑框1.内容 或 个人简介 ＝ 编辑框1.内容)
超级列表框1.插入表项 (0, 用户, , , , )
超级列表框1.置标题 (0, 1, 性别)
超级列表框1.置标题 (0, 2, 家庭住址)
超级列表框1.置标题 (0, 3, 到文本 (身份证))
超级列表框1.置标题 (0, 4, 个人简介)

.默认

.判断结束

跳过 (1)
' 信息框 (用户 ＋ 性别 ＋ 家庭住址 ＋ 到文本 (身份证) ＋ 个人简介, 0, )
.判断循环尾 ()
到首记录 ()

这是个简单的数据库信息查找代码片段,完整的代码请下载 有你要的功能

http://mail.qq.com/cgi-bin/ftnExs_download?k=0b383437be85cec893dbd52744320318515b555501030555185b070f011f0556030c190f5553501a055a57535101020f5401000e623831fdc886e988801c43564738&t=exs_ftn_download&code=5847b217