主题：两列数据 重复值

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