这是删除按建里面的，小弟想留下一个“部门编号”的字段，意思是把编号留下，其它的删除，请教高手在哪里修改？
set delete on
nAnswer = MESSAGEBOX("是否确定删除当前记录?",4+32,"信息提示")
IF nAnswer = 6                                &&  表示按了<是>按钮
    b=RECNO()
    DELETE
    PACK
    go bottom  
ENDIF
THISFORM.REFRESH()

set delete on
nAnswer = MESSAGEBOX("是否确定删除当前记录?",4+32,"信息提示")
IF nAnswer = 6                                &&  表示按了<是>按钮
    b=RECNO()
repl 部门编号 with ""
    DELETE
    PACK
    go bottom  
ENDIF
THISFORM.REFRESH()

是这样改吗？还是不行哦，我要留下那个编号，其它的删除

可以是可以用了，但是那我表里的所有数据都删除掉了，我是想删除当前资料。还有没有其它办法？

谢谢兄弟，这个问题搞定了。呵呵。。。。开心，又解开了一个迷

那我的报表能不能只打印有内容的记录，就像刚才那些删除的内容就在报表上不要体现了

这是打印里面的代码：
do case    
    case thisform.optiongroup1.option1.value=1  
        wait window "正在运行。。。。"  timeout 2
        report form 全体档案输出 environment preview
        use  FOR(职工编号,姓名,性别,民族,籍贯，政治面貌,文化程度,出生日期,健康状况,婚姻,职称,现任职务,毕业学校,部门名称,家庭地址,照片)
endcase
加在哪里都提示出错，我主要是想让它只有空编号没内容的就不要一起打出来浪费纸张!帮忙看看啊各位高手，