Select
Case e.DataCol.Name
Case
"数量","单价","折扣"
Dim pr As
DataRow
pr = DataTables("统计").Find("产品 =
'" & e.DataRow("产品") & "'")
If pr IsNot
Nothing
Then
DataTables("统计").DataCols("产品").RaiseDataColChanged(pr)
End
If
End
Select
以上代码在修改记录后以下统计表会自动更新,但是删除记录时就不会更新,如何办??
以下统计表
If e.DataCol.Name = "产品"
Then
Dim Filter As
String =
"[产品] = '" &
e.NewValue & "'"
e.DataRow("数量") =
DataTables("订单").Compute("Sum(数量)", Filter)
e.DataRow("金额") = DataTables("订单").Compute("Sum(金额)", Filter)
End
If