DataColChanged事件:
Select Case e.DataCol.Name
Case "第一列","第二列","第三列"
Dim dr As DataRow
dr = e.DataTable.Find("第一列 = '" & e.DataRow("第一列") & "' And 第二列 = '" & e.DataRow("第二列") & "' And 第三列 = '" & e.DataRow("第三列") & "'")
If dr IsNot Nothing Then
e.DataRow(e.DataCol.Name) = Nothing
End If
End Select