主题：[求助]高效率地判断末级节点

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

实际测试，这里的条件如果包括有and 或or之类的，总之是多条件的话，效率会几何级数地下降。

所以，如果要遍历和赋值并存，最好用辅助列将条件合并为一个，效率会很高。

实际测试，

70000万数据，如果用了一次and，用时138秒；而用辅助列合并条件为一个，用时5秒。