主题：【请教】同一行内a、b、c三列的值，要求禁止任何两者之间重复

DataColChanging事件

Select Case e.DataCol.Name
   
    Case "a", "b", "c"
       
        If e.newValue <> Nothing Then
            Dim count As Integer = 0
            If e.Newvalue = e.DataRow("a") Then
                count += 1
            End If
            If e.Newvalue = e.DataRow("b") Then
                count += 1
            End If
            If e.Newvalue = e.DataRow("c") Then
                count += 1
            End If
            If count >= 2 Then
                msgbox("重复")
                e.cancel = true
            End If
        End If
       
End Select

还是搞不定，呵呵，能否再求教？

第一列、第二列、第三列不能重复，DataColChanging时间：

Select Case e.DataCol.name
    Case "第一列","第二列","第三列"
        If e.NewValue IsNot Nothing Then
            Dim nms() As String =  {"第一列","第二列","第三列"}
            For Each nm As String  In nms
                If nm <> e.DataCol.name AndAlso e.NewValue = e.DataRow(nm) Then
                    e.cancel = True
                End If
            Next
        End If
End Select

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

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