n=recno() &&存放当前添加或编辑的记录号
sele shiti
dele for len(alltrim(shiti.试题))=0.or.;
len(alltrim(shiti.答案))=0 &&删除试题或答案无内容的记录
i=0 &&用来存放符合条件的记录个数
loca for alltrim(shiti.试题)==alltrim(thisform.edit1.value)
  do while.not.eof()
     i=i+1
     continue
   enddo
**locate语句查到的符合条件的记录包括当前正在编辑的记录
**有超过1个的记录时，第一个记录才会被删除
if i>1
   messagebox("这道题已经出现过，刚刚输入或编辑的信息已被删除。",0,"提示！")
   go n
   dele
endif
  =tableupdate(.t.)
  =.t.
  =.t.
  =.t.
  =.f.
  =.f.
  =.t.
  thisform.edit1.enabled=.f.
  thisform.txt答案.enabled=.f.
  

运行的时候出现

谁能帮我看看这段代码有什么问题吗？跪谢之~

点挂起，看那条命令出错
上传表单运行界面
上面的代码在什么地方

挂起



运行时直接就跳出不能识别的提示了
这段代码是按钮【保存】

说明命令按钮COMMAND4不存在
看下每个按钮的NAME属性名都是什么，看下保存按钮的NAME是否是COMMAND4

应该是没有这个按钮 查查看

【保存】的名字就是command4

【保存】不是一个单独的按钮，那一排按钮都是通过按钮组的方式添加的，但是【保存】的name就是command4。这个（我是指通过按钮组添加）会有影响吗？

你对对象层次没概念吧，这些按钮不在thisform对象下面。

的确没概念
我不是计算机专业的，只有刚过了国二的水平。
这段代码是一个文献上找到的，我看功能跟我要做的类似，就拿来用了。
您可不可以告诉我这段代码要怎么修改，十分感谢~

你的这些按钮是通过按钮组置入的，按钮组才在表单对象thisform下面，引用时，要。其实不单是command4，其余的command也应是同样的现象，你测试一下看就知道了。