主题：执行效率测试

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)

哈哈，这样好，1秒不到就可以了。

lsy兄，这个也是赋值到数据表的，而且直接保存了。

呵呵，没错，Replacefor是高效的，但是这里的情况不同，Select只执行一次，用RepalceFor执行的话，是8000多次，自然有极大的差别。

 

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

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

 

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

这个我就不懂了，我对于sql不太熟悉。

 

我没有执行，正常执行这种sql语句，就是不到一秒的。

 

 

其实ReplaceFor就是下面的代码的简写：

 

For Each dr As DataRow In DataTables("xxx").Select("条件")

    dr("列名") =值

next

 

所以你的方案，等于执行了8000多次Select和遍历，而我的方案只执行了一次Select和遍历。

 

我第一次写的代码和你一模一样，效率不行，分析之后，才有现在的代码。