主题：【请教】同一行内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