修改信息再保存时提示找不到列m_no
修改已经建立好的信息再保存时就会提示下面的信息框是怎么回事呢,具体代码在下面,还望大家不吝赐教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)
update tblcomplain set date=m_time,name=m_name,content=m_content,contact=m_contact,result=m_result where no=m_no
delete from tblkeyword where no=m_no
m_keyword=alltrim(thisform.txtkeyword.value)
for i=1 to len(m_keyword)
kw=''
do while substr(m_keyword,i,1)<>''and 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
messagebox('记录已成功更改。',64,'更改')
thisform.setall('value','','textbox')
thisform.setall('value','','editbox')
thisform.txtno.setfocus