if len(allt(thisform.text1.机型.value))=0 then
  go bottom
  dele
  pack
  wait window"机型不能为空" timeout 1
 endif
append blank
thisform.refresh

很急呀！！！高手快快现身吧

如果text1是个文本框的话，显然是有问题的。
只能thisform.text1.value
活着thisform.机型.value

其实判断一个文本框是否为空，不要这么复杂，直接if empty(thisform.text1.value)

3楼已经指出问题了.
if len(allt(thisform.text1.机型.value))=0 then   &&红\绿二者取一.
  go bottom
  dele
  pack
  wait window"机型不能为空" timeout 1
endif
append blank
thisform.refresh

楼上：
不是红\绿二者取一，而是删除蓝色的“机型”。

我已经按照你的意见修改了，但是执行这个命令的时候出现了“不能识别的成员text1”的错误提示。这又是什么原因呢？

谢谢各位高手的指点，这个问题已经解决了。还有个问题就是表单里的文本框输入不了内容的？小弟菜鸟不懂

只能thisform.text1.value
活着thisform.机型.value

问题已解决，谢谢