然后在“批次”主表的DataColChanged事件 中设置如下代码:
If e.DataCol.Name = "批号" Then '发生变化的是产品列。 '则累计订单表中同名产品总的销售量,然后赋值给变动行的数量列 e.DataRow("屠宰环节成本") = DataTables("凭证明细表").Compute("Sum(借方_金额)","[批号] = '" & e.NewValue & "' and 科目代码 like '201.%'")
End If