程序代码：

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.