VFP杂碎 删除记录 delete if eof() if bof() go top else skip -1 endif else skip if eof() go bottom endif endif