主题：如何禁止三列电话均不重复？

有三列 用于记录客户的电话 tel1，tel2，tel3，

如何保证三列电话均不重复？

比如 有一个客户 小王 电话 tel1是123456

那么tel1，tel2，tel3 再也不能输入123456，如何实现呢？

试过了,不行。

我的意思是 第一列，第二列，第三列，总共三列，比如用来输入电话号码，那么这三列，供三列，只有一个唯一的电话号码，重复就不给录入了。

第一列所有的电话号码都不能重复，并且和第二列、第三列也不重复。

第二列所有的电话号码都不能重复，并且和第一列、第三列也不重复。

第三列所有的电话号码都不能重复，并且和第一列、第二列也不重复。

 

管理员给的代码貌似没有问题，

Select Case e.DataCol.Name
    Case "第一列","第二列","第三列"
        If e.NewValue > "" Then
            Dim dr As DataRow = e.DataRow
            Dim nms As String() = { "第一列","第二列","第三列" }
            For Each nm As String In nms
                If nm <> e.DataCol.name AndAlso dr(nm) = e.newvalue Then
                    e.Cancel = True

Messagebox.show("电话号码重复!", "提示", MessageBoxButtons.OK, MessageBoxIcon.Information)

                    Return
                End If
            Next
        End If
End Select

 

 

但是奇怪的是我还是输入了很多相同的数据，有时候有提示，有时候没有提示。

 

 

此主题相关图片如下：179.jpg

嗯!谢谢！