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

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

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

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

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

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目150.table

试过了,不行。

我误解你的意思了，这样：

 

 

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目151.table

 

打开就看到结果了，怎么看你是怎么做出来的？

 

 

代码在DataColChanging事件。

 

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

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

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

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

 

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

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

将两个文件的代码组合一下，其中一段代码的And换成or即可：

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目154.rar

 

希望仔细体会我帮你写的代码。

嗯!谢谢！

If nm <> e.DataCol.name AndAlso dr(nm) = e.newvalue Then

请问以上代码中，红色部分一定要用吗？我折磨了一下不知道什么意思，请老师赐教。谢谢！