我已在表单的数据环境中加了表
   select zgdab
    delete
    if  yn=6
    messagebox("职工号“"+zgh+"”姓名“"+xm+"”的所有档案已删除!",0+48)  
    endif     
删除的记录还有显示
后来加了一句 set deleted on
除了第一条记录，其它记录全没了，
用delete
pack
运行不了，出错，必须独占方式打开文件
这个要如何修改？

我是要删除，所以要用PACK
但是在这个表单中，已经调用了表，在数据环境中已可以打开了，
现在要删除，用delet
             use  表名  exclusive
             pack
   运行出错,文件正在使用
只用delet
   pack
运行出错，文件必须独占方式打开，
现在怎么办，才能把前面打开的表关闭，用独占方式打开？






[ 本帖最后由 lf8276858 于 2011-8-20 19:18 编辑 ]

试过了还是一样，找了好几天，还是没找到好办法

我只是在删除一条记录，难道你看不出来吗？

还是不行，不过还是谢谢你了，呵呵
这是一个删除按钮的click事件，代码是
select zgdab
if recc()=0
   =messagebox("数据库中无记录可供删除",0+48,"系统提示")
else
   if len(allt(thisform.text1.value))=0
      =messagebox("请输入职工编号",0+48,"系统提示")
      thisform.text1.setfocus
      return
   endif     
    yn=messagebox("确定要删除该职工档案?",4+32,"信息提示")
    select zgdab
    delete
    pack
    if  yn=6
    messagebox("职工号“"+zgh+"”姓名“"+xm+"”的档案已删除!",0+48)  
    endif      
   select zgdab
   go bottom
   thisform.text1.setfocus
   endif
   thisform.refresh

是不是我代码有错呀，
我刚开始学，不是很懂呀

DELETE For zgh=ALLTRIM(thisform.text1,value)
不行呀，显示“参数太多！”

问题已解决，
谢谢scilent的不断回复，
我把前面数据环境移去，
把前面要调用表的程序改了改，加入了if   Used( "zgdab")
                                       Select  zgdab
                                         else
                                        Use  zgdab
                                        endif
然后在删除按钮中再用 delete
                     use  zgdab  exclusive
                     pack
就可以了，
呵呵，以前老纠结在删除按钮上，呵呵，有时想问题还是全面点好，条条道路通罗马呀