晕啊,VP的表里本身就有个删除标记的,还搞什么字段判断啊,不用了.
看下set delete on/off

设置Set Delete On
Dele For 不显示记录的条件
Reca For 要显示记录的条件

对不起，代码确实有错！应该修改如下：
if MessageBox("确实要移去"+alltri(str(recc()))+"号记录吗？",49,"操作确认")=1 &&提供一次确认的机会
repl xs with .f. &&设置不显示的记录
set filte to xs &&将xs=.t.的记录筛选出来
go bott &&移动记录指针，让筛选起作用
thisform.列表框名.refresh &&刷新列表框
endif