currefresh=this.parent.更新显示对象
oldalias=SELECT()
SELECT (this.Parent.mainalias)
??CHR(7)
YN=MESSAGEBOX("是否放弃编辑？",4+48+256,"信息窗口")
IF YN=6
  =TABLEREVERT(.f.)
   GOTO this.Parent.recno ----------------------------运行至此出现超出记录范围
   this.parent.onoffbtn(2)
   thisform.opcode=3  &&还原为初值
 ENDIF
&currefresh..refresh()
SElect(oldalias)