vfp 中表单无法运行,说是类型不匹配
select lwif 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