if empty(thisform.text1.value)=.F. and empty(thisform.text2.value)=.F. and empty(thisform.text3.value)=.F. and empty(thisform.text4.value)=.F. and empty(thisform.text5.value)=.F. and empty(thisform.text6.value)=.F.
select 噪声源频谱特性
append blank
replace 频率125赫兹 with val(thisform.text1.value)
replace 频率250赫兹 with val(thisform.text2.value)
replace 频率500赫兹 with val(thisform.text3.value)
replace 频率1000赫兹 with val(thisform.text4.value)
replace 频率2000赫兹 with val(thisform.text5.value)
replace 频率4000赫兹 with val(thisform.text6.value)
messagebox("录入成功！",48+0,"提示信息")
else
messagebox("请输入完整数据后再点击录入！",48+0,"提示信息")
endif
以上是代码，红色处出错。请问是怎么回事？PS:噪声源频谱特性这个表里边的字段分别为频率125赫兹，频率250赫兹。。。。。。类型是数值型。为了不现场输入数据，文本框text1到text6的value属性是几个预先填好的数，这样运行表单的时候就能出现在文本框里。谢谢！

保留代码不变，text1-6的数据就必须是字符型；若为数值型，则代码中去掉VAL()函数

收到的鲜花

• albert868 于 2010-06-11 16:45 送鲜花  3朵   附言：我很赞同

谢谢2楼！按照你的方法已经解决问题了，非常感谢！