五万行的数据。

先清空计算结果列（初始是清空的）

两种不同的代码：

用RaiseDataColChanged，差不多就是死机，时间太长，等不起。

用SQLCommand，十几分钟或二十几分钟。

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

点击浏览该文件:执行效率测试.rar

 测试了一下，用datacolchanged，几十秒。

 方案：把对应数据fill到一个附加表去，然后去这张表里查询统计sum值

 方案2：如果是一次性的话，可根据情况用代码统计值，而不用sum函数

 原因：http://www.foxtable.com/help/topics/2225.htm

直接这样，比较快：

Dim now As Date = Date.Now
Dim tp As TimeSpan
Dim cmd As New SQLCommand
cmd.CommandText = "Select 单据号,Sum(成本金额) As 零售金额 From {药品收发记录} Group By 单据号"
Dim dt As DataTable = cmd.ExecuteReader

Dim f As New Filler
f.SourceTable = dt \'指定数据来源
f.SourceCols = "零售金额" \'指定数据来源列
f.DataTable = DataTables("药品收发记录") \'指定数据接收表
f.DataCols = "零售金额" \'指定数据接收列
f.Fill() \'填充数据
DataTables("药品收发记录").Load
tp = Date.Now - now
MessageBox.Show(tp.TotalSeconds)

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)

不能填充数据！

快慢都保留着，看情况选用。

狐爸的方法不错。

就是测试代码效率，赋值到数据表，不是查询表。