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编辑过]