主题：禁止相同行

如何禁止相同行

在DataColChangeing事件,利用FINd查找是否有相同的行. http://www.foxtable.com/help/topics/0396.htm

DataColChanged

在列数很多的时候，FIND的条件写出来比较长。

For Each dr As DataRow In e.DataTable.DataRows
    Dim s As String = ""
    Dim s1 As String = ""
    For Each dc As DataCol In e.DataTable.DataCols
        s + = e.DataRow(dc.Name)
        s1 + = dr(dc.Name)
    Next
    If dr("_Identify") <> e.DataRow("_Identify") AndAlso s = s1 Then
        MessageBox.Show("记录重复")
        Exit For
    End If
Next