主题：执行效率测试

五万行的数据。

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

两种不同的代码：

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

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

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

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

直接这样，比较快：

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)

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

狐爸的方法不错。

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

我是指他说的，赋值到查询表的问题，不是说Update。

就是啊，看Update代码，没问题呀。

If Forms("执行效率测试").Opened Then
    If e.DataCol.Name = "零售价" AndAlso e.DataRow.IsNull(e.DataCol) = False Then
        Dim dr As DataRow = Forms("执行效率测试").Controls("Table1").Table.DataTable.Find("单据号 = '" & e.DataRow("单据号") & "'")
        If dr IsNot Nothing Then
            e.DataRow("零售金额") = dr("零售金额")
        End If
    End If
End If

窗口按钮：

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 t As Table = e.Form.Controls("Table1").Table
t.DataSource = dt
DataTables("药品收发记录").DataCols("零售价").RaiseDataColChanged
DataTables("药品收发记录").Load
tp = Date.Now - now
MessageBox.Show(tp.TotalSeconds)