奇怪!
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-06-08 14:10
2006-06-08 14:52
2006-06-08 15:17
2006-06-08 15:41
2006-06-08 15:44
2006-06-08 15:52
2006-06-08 16:19
2006-06-08 16:38
2006-06-09 08:33
2006-06-09 11:59