主题：foxtable在大量数据核对时的表现

1、图片要作为附件上传，别人才能看到。

2、一般最好配合一个数据表提问。

方法都一样，关键要理解：

第一列有、第二列无：

For Each dr As DataRow In DataTables("表A").DataRows
    If DataTables("表A").Find("第二列 = '"  & dr("第一列") & "'") Is Nothing Then
        dr("第三列") = True
    Else
        dr("第三列") = False
    End If
Next

两列都有：

For Each dr As DataRow In DataTables("表A").DataRows
    If DataTables("表A").Find("第二列 = '"  & dr("第一列") & "'") Is Nothing Then
        dr("第三列") = False
    Else
        dr("第三列") = True
    End If
Next

第二列有，第一列无：

For Each dr As DataRow In DataTables("表A").DataRows
    If DataTables("表A").Find("第一列 = '"  & dr("第二列") & "'") Is Nothing Then
        dr("第三列") = True
    Else
        dr("第三列") = False
    End If
Next

因为同时在循环中同时查询和修改本表，上面的代码效率非常低，高效的是：

Dim lst1 As New List(of DataRow)
Dim lst2 AS New List(of DataRow)
For Each dr As DataRow In DataTables("表A").DataRows
    If DataTables("表A").Find("第二列 = '"  & dr("第一列") & "'") Is Nothing Then
        lst1.Add(dr)
    Else
        lst2.Add(dr)
    End If
Next
For Each dr As DataRow In lst1
    dr("第三列") = True
Next
For Each dr As DataRow In lst2
    dr("第三列") = False
Next

其他可以自己照着改。

你可以测试这段比较代码的效率，就是1万行，也不到一秒就完成了比较。