select count(ALLTRIM(仓库表.库名)) from 仓库表 ;
       where ALLTRIM(仓库表.库名)==ALLTRIM(thisform.txt库名.Value) ;
       into array repeat 
IF repeat(1)<>0 OR EMPTY(ALLTRIM(THISFORM.txt库名.value))    &&判断重复值及空值
   MESSAGEBOX("库名有重复或为空，请重新输入",16,"信息提示")
   THISFORM.txt库名.value=""
   RETURN .F.
ENDIF

 以上代码放入文本框valid事件中，表单有“添加记录”和“修改记录”按钮，文本框和表中数据绑定。

1.当添加记录的时候，可以判断输入重复值
2.但是当修改记录的时候，文本框获得焦点，此时我没有输入任何值，只是移动鼠标让文本框失去焦点，就会判断提示有重复值。实际上表中并没有重复值，只是把文本框中显示的值当做了要输入的值。应该怎么改呢？

[此贴子已经被作者于2017-8-28 17:46编辑过]

修改记录重复值的判断条件应该是记录数大于1，而不是不等于零。
新增记录与修改记录时的重复值判断条件是不一样的

[此贴子已经被作者于2017-8-29 09:56编辑过]

文本框不要和表中数据绑定。
在thisform.txt库名.LostFocus事件：
IF !EMPTY(this.Value)
    NODEFAULT
    MESSAGEBOX("库名为空，请重新输入",16,"信息提示")
    RETURN
ENDIF
SELECT 仓库表
LOCATE FOR ALLTRIM(仓库表.库名)==ALLTRIM(this.Value)
IF FOUND()
    NODEFAULT
    MESSAGEBOX("库名有重复，请重新输入",16,"信息提示")
    this.Value = ""
    RETURN
ENDIF

[此贴子已经被作者于2017-8-29 11:12编辑过]

[此贴子已经被作者于2017-8-31 15:20编辑过]