主题：[求助]

请教：

 

第一列    第二列     第三列

123       ABC      001

123       DEF      001

456       ABC      001

789       DEF      001

789       DEF      001     不允许 

789       DEF      002     允许

123       ABC      001     不允许

 

如何判断，当第三列的值相同时，不允许第一列和第二列同时重复。当第三列的值不相同时，允许第一列和第二列同时重复。

请教如何完善程序，谢谢！

If e.DataCol.Name= "第一列" Then
    Dim dr As DataRow = e.DataTable.Find("第一列='" & e.NewValue & "' and 第二列='" & e.DataRow("第二列") & "'")
    If dr IsNot Nothing Then
        e.Cancel = True
    End If
ElseIf e.DataCol.Name= "第二列" Then
    Dim dr As DataRow = e.DataTable.Find("第二列='" & e.NewValue & "' and 第一列='" & e.DataRow("第一列") & "'")
    If dr IsNot Nothing Then
        e.Cancel = True
    End If
End If