奇怪!
IF NOT EMPTY(ALLTRIM(this.Value))COUNT FOR ALLTRIM(no)==ALLTRIM(this.Value) TO x
IF x>1
MESSAGEBOX("该编号已有供应商,请重新输入!",48,"提示")
RETURN
ENDIF
ENDIF
thisform.Refresh
这是在text1的vaild的代码,为什么我输了重复了和不重复的都不行,其它文本框也变暗了.为什么啊?实在想不出.奇怪!
[此贴子已经被作者于2006-6-8 14:42:44编辑过]
[此贴子已经被作者于2006-6-8 15:35:17编辑过]
当文本框输入的为空白的时候,你当作有效输入对待,可能是这个原因吧
因此增加
ELSE
RETURN .F.
我在4楼中已经添加了。