主题：[求助]怎样控制输入重复数据

使用窗口录入,窗口中一个TextBox控件, 在TextBox的ValueChanged 事件中,控制重复的输入,

假如,在表中有一个客户编号列,已有一条记录Cs01 如果在TextBox控制中输入Cs01,发生ValueChanged事件后,会提示客户记录已存在!

Dim dr As DataRow
With e.Form.Controls("TextBox1")
dr = DataTables("表A").Find("客户= '" & .Value & "'")
If dr IsNot Nothing Then '如果找到的话
  MessageBox.Show("客户记录已存在!", "提示")
 End If
End With

看看这个：
Dim dr As DataRow
Dim r As Row = CurrentTable.Rows(CurrentTable.Rows.Count-1)
With e.Form.Controls("TextBox1")
dr = DataTables("表A").Find("客户= '" & .Value & "'")
If dr IsNot Nothing Then '如果找到的话
  MessageBox.Show("客户记录已存在!", "提示")
 r("客户") = ""
 End If
End With

多谢Yang版,有这个语句控制会有问题 ,这是我用的语句

Dim Txtb As WinForm.TextBox = e.Sender
Dim Index As Integer
Index = Tables("客户信息表").FindRow("[客户编号]= '" & Txtb.Value & "'",0,True)
If Index >=0
    MessageBox.Show("该客户编号已存在!","警告")
    Txtb.Value = Nothing
    Txtb.Select()
    Return
End If

遇到一个问题, 在建立的一个编辑窗口中,假设原来有一条记录,客户编号为3,现改为我,再点取消,就会弹出  "客户编号已存在!"的警告.
这个控制不像在易表中,这个FindRow不像易表中的可以找第几行记录,

如何改成 FindRow("[客户编号]= '" & Txtb.Value & "'",1,True) 的话,有输入第2个相同的客户编号时也不会弹出 窗口

上传你的文件看看吧,从你的代码看,你需要的是查到相同编号后就将光标定位到文本框中,并不是到找到的那一行啊

是的,我的代码是,当前行绑定的TextBox中输入一个客户编号,如果这个客户编号已经存在,就把这个TextBox清空,然后把光标定位到这个TextBox

列属性不是由禁止输入重复内容的设置吗？

是的,可没有提示,呵呵!