myerror.prg

在学VFP时

Parameters nerror
if nerror=1583	&& 违犯记录级规则
    messagebox(message())
    tablerevert()
    go top
    _screen.activeform.refresh
endif