请高手看下为啥出错呢

辽宁铁岭

请高手看下为啥出错呢
单用查找正常
单用查询正常
用完查询在用查找就出错
用完查找在用查询就出错
[e]
.版本 2

.程序集 窗口程序集1

.子程序 __启动窗口_创建完毕
.局部变量 字段, 字段信息, , "4"

图片框1.图片 ＝ 读入文件 (取运行目录 () ＋ “\图片” ＋ “\1.gif”)
加载易皮肤 (13)
.如果真 (文件是否存在 (取运行目录 () ＋ “\” ＋ #数据库1) ＝ 假)
字段 [1].名称 ＝ #名称
字段 [1].类型 ＝ #文本型
字段 [1].最大文本长度 ＝ 100
字段 [3].名称 ＝ #内容
字段 [3].类型 ＝ #文本型
字段 [3].最大文本长度 ＝ 500
字段 [4].名称 ＝ #图片
字段 [4].类型 ＝ #字节集型
.如果真结束
.如果真 (打开 (取运行目录 () ＋ “\” ＋ #数据库1, “超级数据”, , , , , ) ＝ 假)
信息框 (“打开失败即将退出”, #错误图标 ＋ #确认钮, )
结束 ()

.如果真结束
新建索引 (“超级数据”, , , , #名称)
置当前库 (“超级数据”)
到首记录 ()
.判断循环首 (尾记录后 () ＝ 假)
组合框_查找.加入项目 (读 (#名称), )
跳过 ()
.判断循环尾 ()

.子程序 _图形按钮1_被单击

.如果真 (加记录 (编辑框_名称.内容, 编辑框_内容.内容, 图片框1.图片) ＝ 真)
组合框_查找.加入项目 (编辑框_名称.内容, )
信息框 (“ 添加成功”, 0, )
编辑框_名称.内容 ＝ “”
编辑框_内容.内容 ＝ “”
图片框1.图片 ＝ 读入文件 (取运行目录 () ＋ “\图片” ＋ “\1.gif”)
' 图片框1.图片 ＝ { }
.如果真结束


.子程序 _图形按钮2_被单击

.如果真 (首记录前 () ＝ 假 且 尾记录后 () ＝ 假)
删除 ()
彻底删除 ()
信息框 (“ 删除成功”, 0, )
组合框_查找.删除项目 (组合框_查找.现行选中项)
编辑框_名称.内容 ＝ “”
编辑框_内容.内容 ＝ “”
图片框1.图片 ＝ 读入文件 (取运行目录 () ＋ “\图片” ＋ “\1.gif”)
' 图片框1.图片 ＝ { }
.如果真结束


.子程序 _组合框_查找_列表项被选择

到首记录 ()
.判断循环首 (读 (#名称) ≠ 组合框_查找.内容)
跳过 ()


.判断循环尾 ()
.如果真 (查找 (读 (#名称) ＝ 组合框_查找.内容) ＝ 真)
.如果真结束

索引查找 (组合框_查找.内容)
编辑框_名称.内容 ＝ 读 (#名称)
编辑框_内容.内容 ＝ 到文本 (读 (#内容))
图片框1.图片 ＝ 读 (#图片)

.子程序 _图形按钮3_被单击

通用对话框1.打开 ()
图片框1.图片 ＝ 读入文件 (通用对话框1.文件名)

.子程序 _图形按钮4_被单击

播放MP3 (-1, 取运行目录 () ＋ “\音乐” ＋ “\曹越-借点情借点爱.mp3”)
编辑框_名称.内容 ＝ “”
编辑框_内容.内容 ＝ “”
图片框1.图片 ＝ 读入文件 (取运行目录 () ＋ “\图片” ＋ “\1.gif”)
' 图片框1.图片 ＝ { }

.子程序 _图形按钮5_被单击
.局部变量 i, 整数型
.局部变量 名称, 文本型
.局部变量 是否存在, 逻辑型
.局部变量 内容, 文本型


是否存在 ＝ 假
.如果真 (编辑框_名称.内容 ＝ “”)
信息框 (“请输入内容再点击查询！”, 0 ＋ #警告图标, )
返回 ()
.如果真结束
打开 (取运行目录 () ＋ “\超级数据.edb”, , 真, , , , )
.计次循环首 (取记录数 (), i)
名称 ＝ 读 (“名称”)
.如果真 (名称 ＝ 编辑框_名称.内容)
编辑框_内容.内容 ＝ 读 (“内容”)
图片框1.图片 ＝ 读 (“图片”)
是否存在 ＝ 真
跳出循环 ()
.如果真结束
跳过 (1)
.计次循环尾 ()
.如果真 (是否存在 ＝ 假)
编辑框_内容.内容 ＝ 编辑框_内容.内容 ＋ 编辑框_名称.内容 ＋ “不存在！！！”

[/e]

辽宁铁岭

这是源码已上传

辽宁铁岭

这回传上了

小生怕怕啊

{:soso__10615784733045253186_4:}    试试  ~

小生怕怕啊