我设置了,YN=MESSAGEBOX("是否确定删除当前记录?",32+4+256,"删除记录")
IF YN=6
THISFORM.Grid1.RecordSource=NULL
SELECT 职工信息记录表
DELETE
PACK
THISFORM.Grid1.RecordSource="职工信息记录表"
IF EOF() .AND. BOF() .OR. RECCOUNT()=0
THISFORM.INIT
ELSE
IF EOF()
SKIP-1
ELSE
SKIP
ENDIF
ENDIF
THISFORM.Refresh
ENDIF
这样的代码有错误吗?