select lw
if alltrim(thisform.text1.value)==""
   messagebox("论文编号必须填写！",64,"提示")
else
       locate for  alltrim(thisform.text1.value)==alltrim(lw.论文编号)
       if not eof()
          messagebox("此论文编号已经存在,请重新输入！",64,"提示")
         thisform.text1.value=""
         thisform.text1.setfocus
     else
         append blank
         replace 论文编号 with  alltrim(thisform.text1.value)
         replace 论文名称 with  alltrim(thisform.text2.value)  
          replace 学号 with  alltrim(thisform.text3.value)  
           replace 导师编号 with  alltrim(thisform.text5.value)  
          replace 论文成绩 with  alltrim(thisform.text6.value)  
               
           
         
    endif
 endif
  
  thisform.refresh

谢谢大家，已经解决了。我是大一学生，一哈偶还有好多问题要请教，谢谢大家。