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)

在goto 语句之前加一个判断，对this.Parent.recno的值在记录范围内则执行goto语句。