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

看来不单单查询这样，遍历过程中，任何涉及到所有行的操作，例如查找和计算都如此，我将第一列和第二列改为整数型，下面两段代码效率同样相差几百倍：

 

普通的：

Dim v As Double
For Each dr As DataRow In DataTables("表A").DataRows
    v = DataTables("表A").Compute("Sum(第二列 )", "第二列 = " & dr("第一列"))
    dr("第四列") = v
Next

 

高效的，快了300倍：

Dim Dic As new Dictionary(of DataRow, Integer)
Dim v As Double
For Each dr As DataRow In DataTables("表A").DataRows
    v = DataTables("表A").Compute("Sum(第二列 )", "第二列 = " & dr("第一列"))
    dic.Add(dr, v) 
Next
For Each dr As DataRow In dic.Keys
    dr("第四列") = dic(dr)
Next

两者几乎没什么差别，12740条记录用时原来代码1分48秒多，新代码1分46多，手按秒表计时有点误差。

连续两天看到Dictionary的妙用，令人瞠目，不得不顶！！

 

有差别的，你改得不对而已。

兄弟，不能用手按秒表计时，狐表里有时间的控件，用这个算会更准一点

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  [单位(个人)] = '" & dr("单位(个人)") & "'  And  [法定代表人] = '" & dr("法定代表人") & "' 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
Tables("申请表").Sort = "法定代表人 DESC" '降序排列
就是以上代码再无别的，经过反复测试对比效果一样

下面这个文件，可以配合一楼的代码测试，注意每次测试都重新打开项目，不用保存：

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目22.table

搞不明白，16楼的代码的确不存在两种代码效率上大的差异。

我朋友这电脑太差了，没法测试。。。。  这个问题不是和我的一个帖子类似吗：

http://www.foxtable.com/dispbbs.asp?boardid=2&id=8511&authorid=0&page=0&star=1 

没看过的朋友可以对比一下··· 呵呵

 

 

 Dictionary的用法我不熟啊！

 

我经常会用FOR EACH计算，但是我用FIND在其他表中找，一般不在本表中找，所以没碰到这样的速度慢的问题。

 

学习中