VFP杂碎

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