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的代码,为什么我输了重复了和不重复的都不行,其它文本框也变暗了.为什么啊?实在想不出.奇怪!

我想，这应该与数据环境有关，可能是COUNT FOR ALLTRIM(no)==ALLTRIM(this.Value) TO x 中 No字段的表不在当前工作区。
另外，由于你的表中要求编号唯一，所以可以编一段小程序，由计算机自动编号而不用手工输入

[此贴子已经被作者于2006-6-8 14:42:44编辑过]

那表已经加到数据环境中了....
而编号是她们自己输入的,没要求要自动编号...
我就是奇怪为什么我这样会不行,怎么也没看出问题..

IF NOT EMPTY(ALLTRIM(this.Value))
COUNT FOR ALLTRIM(no)==ALLTRIM(this.Value) TO x
IF x>1
MESSAGEBOX("该编号已有供应商,请重新输入!",48,"提示")
RETURN .F.
ELSE
RETURN .T.
ENDIF
ELSE
RETURN .F.
ENDIF
thisform.Refresh

关注红色部分试试

[此贴子已经被作者于2006-6-8 15:35:17编辑过]

还是一样,如果输入不重复的,其它文本框全变成灰暗的 不可用了..
如果输入有重复的,则右上角提示"无效输入",同时其它文本框也是不可用的.

数据环境中有几个表？表加入到数据环境后，并不等于就是在当前工作区上

当文本框输入的为空白的时候，你当作有效输入对待，可能是这个原因吧
因此增加
ELSE
RETURN .F.
我在4楼中已经添加了。

只有一个表..那要怎么样才算是在当前工作区呢?

Tiger5392你那个代码,我拿去调试了,还是一样不行.还是我说的那样!

怎么上传图片和附件呢?