请教：

第一列    第二列    

123       ABC     

123       DEF

456       ABC

789       DEF

789       DEF      不允许 

在DataColChanging事件中设置代码，使得不管通过任何方式修改列的内容，都不能在第一列和第二列同时输入重复值，例如希望第一列和第二列不能同时输入重复值：

If e.DataCol.Name = "第一列"  ore.DataCol.Name = "第二列“ Then
    Dim dr As DataRow
    dr = e.DataTable.Find("第一列 = \'" & e.NewValue & "\'and   第一列 = \'" & e.NewValue & "\'")
    If dr IsNot Nothing Then
        MessageBox.Show("已经存在!")
        e.Cancel = True
    End If
End If

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

点击浏览该文件:请教.table

请教：

第一列    第二列     第三列

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