Select Case e.DataCol.Name
Case "产品","型号"
Dim Filter As String = "[产品] = '" & e.NewValue & "' and [型号] = '" & e.DataRow("型号") & "'"
e.DataRow("数量") = DataTables("订单").Compute("Sum(数量)", Filter)
e.DataRow("金额") = DataTables("订单").Compute("Sum(金额)", Filter)
End Select
[此贴子已经被作者于2019/8/20 7:52:34编辑过]