主题：[求助]表的同一行的两列，内容不允许完全一样代码

在表中，有A列和B列，在同一行A列输入一个内容，在B列输入的内容不允许和A列完全一样，如A列输入ABC,则在B列不允许输入ABC，但可以输入ABD,请老师前辈写个代码，谢谢！

DataColChanging事件

 

If e.DataCol.Name = "B列" AndAlso e.newvalue <> Nothing Then
   
    Dim fdr As DataRow = e.DataTable.Find("A列 = '" & e.newValue & "'")
    If fdr IsNot Nothing Then
        msgbox("不能重复")
        e.cancel = True
    End If
End If

老师：上面这个代码如果在第一行:A列输入ABC.B列输入ABD,如果在第二行：在A列输入ABD,则在B列就不可以输入ABC.我希望在同一行的两列内容不能一样，但同一列中的内容可以有相同的，还望老师再帮忙修改一下，谢谢！

If e.DataCol.Name = "B列" AndAlso e.newvalue <> Nothing Then
    If e.DataRow("第一列") = e.NewValue Then
        msgbox("不能重复")
        e.cancel = True
    End If
End If

谢谢老师！