m_no=alltrim(thisform.txtno.value)
nanswer=messagebox('记录一旦被删除，将无法恢复。请确认您要删除的记录。'+chr(13)+'您真的要删除该记录吗？',4+48+256,'警告')
if nanswer=6 &&yes
delete from tblcustom where no=m_no
pack
thisform.setall('value','','textbox')
thisform.setall('value','','editbox')
thisform.txtno.setfocus
endif


执行上面的代码时会提示表要以独占方式打开，具体要怎么设置呢

在哪里输入这句代码

我用你说的这种方法输入到以下代码，运行的时候会提示表正在使用是怎么回事呢？

m_no=alltrim(thisform.txtno.value)
nanswer=messagebox('记录一旦被删除，将无法恢复。请确认您要删除的记录。'+chr(13)+'您真的要删除该记录吗？',4+48+256,'警告')
if nanswer=6 &&yes
use data\tblcomplain exclusive
use data\tblkeyword exclusive
delete from tblcomplain where no=m_no
delete from tblkeyword where no=m_no
pack
thisform.setall('value','','textbox')
thisform.setall('value','','editbox')
thisform.txtno.setfocus
endif

m_no=alltrim(thisform.txtno.value)
nanswer=messagebox('记录一旦被删除，将无法恢复。请确认您要删除的记录。'+chr(13)+'您真的要删除该记录吗？',4+48+256,'警告')
if nanswer=6 &&yes
if used("tblcomplain")
use in tblcomplain
else
use tblcomplain exclusive
endif

delete from data\tblcomplain where no=m_no
pack
if used("tblkeyword")
use in tblkeyword
else
use tblkeyword exclusive
endif
delete from data\tblkeyword where no=m_no
pack
thisform.setall('value','','textbox')
thisform.setall('value','','editbox')
thisform.txtno.setfocus
endif

请问这些代码哪里出错了，为什么提示表不存在，我就改了路径，结果还是提示文件没有独占打开

不好意思，不是很理解耶

哈哈，让大家见笑了，我也算是初学者，以后学会了肯定要谢谢大家的教导，顺便把名字给改了：走路不晃悠

哈，改了个顺序有什么不同吗

你的这种方法就提示无效的临时表操作

这个建议好，不过我得把期末作品先完成了，不然下学期真的要补考了，所以就得有劳各位了

看是看懂了，就是不知道能不能解决，我先试试，谢谢