还是不行，不过还是谢谢你了，呵呵
这是一个删除按钮的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

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

你把这个拷过去试试，如果还是不行，那我没招了
select zgdab
if recc()=0
   =messagebox("数据库中无记录可供删除",0+48,"系统提示")
else
   if len(allt(thisform.text1.value))=0
      =messagebox("请输入职工编号",0+48,"系统提示")
      thisform.text1.setfocus
   else   
        yn=messagebox("确定要删除该职工档案?",4+32,"信息提示")
        if  yn=6
           select zgdab
        DELETE For zgh=ALLTRIM(thisform.text1,value)
         messagebox("职工号“"+zgh+"”姓名“"+xm+"”的档案已删除!",0+48)  
        ENDIF
    ENDIF      
   select zgdab
   go bottom
   thisform.text1.setfocus
 endif
   thisform.refresh
在表单的unload事件里加入
close tables
use zgdab excl
pack

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

把这一句改成
DELETE For zgh=ALLTRIM(thisform.text1.value)
也就是text1.value中间是个点，不是逗号

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

我觉得用假删除的办法不好，最好增加一个是否显示的标识字段，相当于查询之中的一个条件。

我已在表单的数据环境中加了表
   select zgdab
    delete
    if  yn=6
    messagebox("职工号“"+zgh+"”姓名“"+xm+"”的所有档案已删除!",0+48)  
    endif     
您这一段程序不完整，如果方便请将完整的程序写出来
建议您这样写：
1、不要在表单中加入数据环境，在表单的LOAD 事件中加入这段代码：
    if used("zgdab"）
        use in zgdab
    endif
    select 0
    use zgdab exclusive
2、在表单中有一个GRID控件，命名为GRID1
3、在表单的INIT事件中加入这段代码：
    thisform.grid1.recordsource ="zgdab"
4、您单击选定表中的一个记录,在删除按钮的CLECK事件中：
    select zgdab
    IF messagebox("您确认要删除职工号“"+zgh+"”姓名“"+xm+"”的档案吗？",4+32,"系统消息") =6
        delete
    endif   
5、在表单的UNLOAD 事件中：
    select zgdab
    pack
 


[ 本帖最后由 apple0072011 于 2011-8-22 15:29 编辑 ]