主题：执行效率测试

以下是引用狐狸爸爸在2014-4-10 15:59:00的发言：

DataColChanged可不止几十秒，除非之前用其他方法算过一次，表中已经有算好的值。

 

在我的i5笔记本，12秒完成：

 

Dim dt As Date =Date.now()
Dim dic As new Dictionary(of String,Double)
Dim nms As List(of String) = DataTables("药品收发记录").GetValues("单据号")
For Each nm As String In nms
    dic.Add(nm,DataTables("药品收发记录").Compute("Sum(成本金额)","单据号 = '" & nm & "'"))
Next
Dim drs As List(of DataRow) = DataTables("药品收发记录").Select("单据号 is not null","单据号")
drs(0)("零售金额") = dic(drs(0)("单据号"))
For i As Integer = 1 To drs.count -1
    If drs(i)("单据号") =  drs(i-1)("单据号") Then
        drs(i)("零售金额") = drs(i-1)("零售金额")
    Else
        drs(i)("零售金额") = dic(drs(i)("单据号"))
    End If
Next
messagebox.show((Date.now - dt).TotalSeconds)

以下是引用狐狸爸爸在2014-4-10 17:34:00的发言：
呵呵，没错，Replacefor是高效的，但是这里的情况不同，Select只执行一次，用RepalceFor执行的话，是8000多次，自然有极大的差别。

你循环的是表的行数,我循环的是不重复的单据号!

以下是引用狐狸爸爸在2014-4-10 17:54:00的发言：

 

不重复的单号有8000多个，所以循环单号，其实执行了8000多次RepalceFor。

我虽然遍历所有行，有5万多次循环，但其实只是执行5万多次的简单赋值而已，所以快很多。

 

往深处考虑，每次RepalceFor都会遍历5万行，所以你的是遍历了8000 * 50000行，远远超过我的5万行。