a=Trim(Thisform.txt教师编号.Value)
Locate For Alltrim(教师表.教师编号)=Alltrim(a)
If Eof()
    Messagebox("没有找到指定的学号！")
Else
    If Messagebox("确认要删除吗?",36,"系统提示!")=1
        Dele
        Messagebox("删除成功！")
        
   
        
    Endif
Endif
thisform.Refresh   

If Messagebox("确认要删除吗?",36,"系统提示!")=1
        Dele
        pack
        Messagebox("删除成功！")

还是没有删除啊，数据还在

a=Trim(Thisform.txt教师编号.Value)
Locate For Alltrim(教师表.教师编号)=Alltrim(a)
If Eof()
    Messagebox("没有找到指定的学号！")
Else
    If Messagebox("确认要删除吗?",36,"系统提示!")=1
        DELETE
        pack
        Messagebox("删除成功！")
        
    Endif
Endif
thisform.Refresh
删除不了,数据还在

想放在那就放在那

这样看看：
select 教师表
Locate For Alltrim(教师表.教师编号) == Alltrim(Thisform.txt教师编号.Value)
If FOUND()
    If Messagebox("确认要删除吗?",36,"系统提示!")=1
        DELETE
        pack
        Messagebox("删除成功！")
    Endif
Else
    Messagebox("没有找到指定的学号！")
Endif
thisform.Refresh

还是不可以

我的是自由表，这样有关系吗

还是上传相关文件，有些问题你也说不清楚。

如果有显示"删除成功！"，应该是删除了，再看“教师表”的记录数就知道。
因为PACK只是删除表记录，不一定是同时刷新屏幕原来显示的内容。

[此贴子已经被作者于2016-9-25 21:03编辑过]