VFP函数参数的指，类型或数目无效

use 楼盘房源信息表
if allt(thisform.text1.value)==""
messagebox("请输入完整的必要信息！",64,"提示")
thisform.text1.setfocus
else
if allt(thisform.text2.value)=="" &&系统显示这一行有错
messagebox("请输入完整的必要信息！",64,"提示")
thisform.text2.setfocus
else
if allt(thisform.text3.value)==""
messagebox("请输入完整的必要信息！",64,"提示")
thisform.text3.setfocus
else
if allt(thisform.text4.value)==""
messagebox("请输入完整的必要信息！",64,"提示")
thisform.text4.setfocus
else
if allt(thisform.text5.value)==""
messagebox("请输入完整的必要信息！",64,"提示")
thisform.text5.setfocus
else
if allt(thisform.text6.value)==""
messagebox("请输入完整的必要信息！",64,"提示")
thisform.text6.setfocus
else
if allt(thisform.text7.value)==""
messagebox("请输入完整的必要信息！",64,"提示")
thisform.text7.setfocus
else
append blank
repl 楼盘房源信息表.房号 with allt(thisform.text1.value)
repl 楼盘房源信息表.楼号 with allt(thisform.text2.value)
repl 销售客户信息表.客户姓名 with allt(thisform.text3.value)
repl 楼盘房源信息表.户型 with allt(thisform.text4.value)
repl 楼盘房源信息表.结构 with allt(thisform.text5.value)
repl 楼盘房源信息表.面积 with allt(thisform.text6.value)
repl 楼盘房源信息表.公摊 with allt(thisform.text7.value)

thisform.command5.click
endif
endif
endif
endif
endif
endif
endif
use

---

既然TEXT1没有问题，就将TEXT2删除，在TEXT1上右尺埋击陵埋蚂选择复制，在表单上粘贴一下，新的text名称改为text2即可。这样液饥保证属性值与text1一致。

---

现在还有这么写程序的？7个if...endif套在一起？
如果有50个textx，是不是要者陵50个嵌套在一起呀？
我这不给衫前你回答，来给你找毛病了

你能不能用首塌戚：
do Case
Case
Case
...
othe
endcase

---

text2这个控件，你点右键－生成器，把类型改成字符型

---