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


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

use 表名 exclusive

在哪里输入这句代码

if nanswer=6 &&yes
use 表名 exclusive
delete for no=m_no
pack
......

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

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

加个判断
if used("表")
use in 表
else
use 表 exclusive
endi

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

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

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

楼主，USE命令后面只跟个表名就是独占方式打开了，如果有“SHARED”子句就是共享方式打开。
你有两种方法解决：
1、把所有USE命令中的SHARED子句全部拿掉；
2、不高兴去找SHARED子句，就用T版的方法去判断表文件是否打开。如果打开就先关闭(“USE IN”命令)，然后紧跟着再用“USE 表文件名”命令打开即可。不过，建议你关闭表文件时，最好分两步走：SELECT 表名或工作区号、USE (整个命令就这一个单词)。这样做的目的是为了后边再次打开该表时，确保打开在原来的工作区中，不会影响到其它已打开的表文件。

楼主还有很多基础知识需要学扎实，这样走路就不会晃悠悠了。