DataColChanged事件
Select Case e.DataCol.name
Case "第一列", "第二列"
Dim str As String = e.DataRow("第一列") & "|" & e.DataRow("第二列")
Dim count As Integer = e.DataTable.Compute("count(_Identify)", "第一列 + '|' + 第二列 = '" & str & "'")
If count > 1 Then
msgbox("重复了")
systemready = False
e.DataRow(e.DataCol.name) = e.DataRow.OriginalValue(e.DataCol.name)
systemready = True
End If
End Select