我用dele语句删除数据库的语句,接着用pack,我的目的是永久删除,不是逻辑删除
if thisform.text1.value=' ' and thisform.text2=' 'then
  messagebox('部门没有填写',0,'提醒')
else
 number1=thisform.text1.value
 number2=thisform.text2.value
 go 1
 delete from bm where bm=number1 and number=number2 
 messagebox('该部门被删除',0,'提醒')
 endif
thisform.refresh
pack 
do form bm.scx

哪位兄台帮我看看是这么回事或者教我到底这么永久删除语句.