*将TEXT的INPUTMASK设置成与NO相同宽度的格式
COUNT FOR no=this.Value TO x
DO CASE
CASE EMPTY(ALLTRIM(this.Value))
MESSAGEBOX("请输入编号!",48,"提示")
RETURN .F.

CASE x>=1
MESSAGEBOX("该编号已有供应商,请重新输入!",48,"提示")
RETURN .F.

CASE X<1
RETURN .T.

ENDCASE
thisform.Refresh

更惨,变成死循环了.我输入表里面没有的编号,却提示"该编号已有供应商,请重新输入",然后text1就变暗了,提示"请输入编号",跳不出来了.同时右上角还是提示无效输入

(1)你要将TEXT的INPUMASK设置成与字段NO相同的输入宽度,即输入XXXXXXXX(X的个数就是NO的宽度)
(2)TEXT变暗不是这段程序控制的(也许你在REFRESH这个方法中加了些代码)
(3)你要是认为数据输入正常就应该保存下来啊，我没有对你当X<1这种情况进行处理。你自己处理吧
(4)TEXT不要与表捆绑起来

[此贴子已经被作者于2006-6-8 16:46:41编辑过]

我对inputmask设置了同等宽度,refresh方法没有代码啊.我输入第一个就提示不行了,怎么保存呢??下班了,明天继续吧!

我猜测，你的TEXT的ControlSource设置了某表的字段。
而你程序中的COUNT命令执行后，将指针指向了EOF，所以TEXT变灰了

是啊,是啊,有绑定字段啊.请问那要怎么做才行呢?

如果绑定字段是非要不可的，那你在count命令之前，增加"JLH=recno()"命令，在COUNT之后，增加“goto jlh"命令；这是一个参考思路，你也可以根据你的具体情况，使用其他方法。总之，就是不能使指针指向EOF！

谢谢~!!

对了,能不能告诉我"JLH=recno()   goto jlh" 那是什么意思呢?

JLH=recno()
操作前,将当前记录号存入变量jlh
操作后
用 goto jlh 回到操作前的记录.
go 3
goto 3
将记录指针移到第三条记录