主题：执行效率测试

直接这样，比较快：

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)