PUBLIC M_NO
m_no=alltrim(thisform.txtno.value)
if empty(m_no)
   messagebox('对不起，编号不能为空！',16,'错误')
   thisform.txtno.setfocus
   return
endif
sele tblcomplain
locate for no==m_no
if not found()
   messagebox('编号为'+m_no+'的投诉记录不存在！',16,'记录号错误')
   return
endif
thisform.txtno.value=tblcomplain.no
thisform.txttime.value=dtoc(tblcomplain.date)
thisform.txtname.value=tblcomplain.name
thisform.edtcontent.value=tblcomplain.content
thisform.txtcontact.value=tblcomplain.contact
thisform.edtresult.value=tblcomplain.result
select keyword from tblkeyword where no=m_no into cursor cur
kw=''
scan
   kw=kw+space(4)+keyword
endscan
kw=ltrim(kw)
thisform.txtkeyword.value=kw