其他的运行都可以，就是关键词记录不到表里，忘各位帮忙找找原因

我运行的时候没有这个提示的？

do while substr(m_keyword,i,1)<>''and i<=len(m_keyword)

改为：do while substr(m_keyword,i,1)<>''or i<=len(m_keyword)

还是不行，那个tblkeyword和tblcomplain要建立连接吗

不用

提示加载错误，记录编号5.form1<或者它的一个成员>正在加载表单或数据环境，文件必须以独占方式打开。

把下面的拷贝到你表单的“保存”按钮中
m_no=alltrim(thisform.txtno.value)
use tblcomplain
locate for no=m_no
if found()
messagebox('编号为'+m_no+'的投诉记录已经存在！',16,'记录重复')
return
endif
m_time=ctod(thisform.txttime.value)
m_name=alltrim(thisform.txtname.value)
m_content=alltrim(thisform.edtcontent.value)
m_contact=alltrim(thisform.txtcontact.value)
m_result=alltrim(thisform.edtresult.value)
insert into tblcomplain values(m_no,m_time,m_name,m_content,m_contact,m_result)
m_keyword=alltrim(thisform.txtkeyword.value)
for i=1 to len(m_keyword)
kw=''
do while substr(m_keyword,i,1)<>''or i<=len(m_keyword)
kw=kw+substr(m_keyword,i,1)
i=i+1
ENDDO
if not empty(kw)
insert into tblkeyword values(m_no,kw)
endif
ENDFOR
thisform.setall('value','','textbox')
thisform.setall('value','','editbox')
thisform.txtno.setfocus

复制不了，但是现在把and改成or又可以使用了，之前也有类似的情况就是刚开始运行是不行的，但是过了一段时间就算没有重新调试，又变得可以使用了。这种情况是不是软件本身的问题啊