主题：令人目瞪口呆的效率差别(有修正)

是的，我做过测试，用了多种方法效率差别都不大。

结果没有什么差异，我反复测试过的，所以才说搞不懂。

你测试一下下面的代码，红色字体为效率不高的源头。

Dim s As Date = Date.Now()
Dim str As String
Dim Dic As New Dictionary(of DataRow, String)
For Each dr As DataRow In DataTables("申请表").DataRows
    str = "[乡名] = '" & dr("乡名") & "'And [村名] = '" & dr("村名") & "' And [组别] = '" & dr("组别") & "'"
    str = str  & " And [_Identify] < " & dr("_Identify")
    dic.Add(dr,Format(DataTables("申请表").Compute("Count(乡名)",str)+1,"00"))
Next
For Each dr As DataRow In dic.Keys
    dr("宗地序号") = dic(dr)
Next
Output.show((Date.Now -s).TotalSeconds)