主题：[求助]

请教：

第一列    第二列    

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

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

谢谢！cbt

请教：

 

第一列    第二列     第三列

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