执行效率测试 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

以下是引用狐狸爸爸在2014-4-10 17:08:00的发言：
lsy兄，这个也是赋值到数据表的，而且直接保存了。

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

各种代码，有的方便，有的效率高，必须做到心中有数，不然就是一本糊涂账。

以下是引用狐狸爸爸在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 16:01:23编辑过]

用老大这个字典+Select我这里12秒多,

改成用ReplaceFor却伤不起:假死了!

常自以为ReplaceFor比Select高效,看來错了!

Dim dt As Date =Date.now()

Dim dic As new List(of Double)

Dim nms As List(of String) = DataTables("药品收发记录").GetValues("单据号")

For Each nm As String In nms

dic.Add(DataTables("药品收发记录").Compute("Sum(成本金额)","单据号 = '" & nm & "'"))

For i As Integer = 0 To dic.count -1

DataTables("药品收发记录").ReplaceFor("零售金额",dic(i),"单据号 = '" & nms(i) & "'")

messagebox.show((Date.now - dt).TotalSeconds)

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

加上停止重绘会更快，

但是要保存的话，就得等了。

以下是引用lsy在2014-4-10 17:07:00的发言：

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

一样啊，最后LOAD表，这个应该是效率最高的了吧，只是不知道为什么执行不了这个语句。

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

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

以下是引用jspta在2014-4-10 17:40:00的发言：

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

DataColChanged

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)

[此贴子已经被作者于2014-4-10 17:59:40编辑过]

主题：执行效率测试