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
[此贴子已经被作者于2016/8/21 20:31:44编辑过]
加好友 
发短信
Post By：2016/8/21 20:30:00 [显示全部帖子]
