参考:http://www.foxtable.com/webhelp/scr/0625.htm
类似
datacolchanged事件
Select Case e.DataCol.Name
Case "生产入库单号","来源单号","主件品号"
Dim sum As Integer = e.DataTable.Compute("Sum(入库数量)","生产入库单号 = '" & e.DataRow("生产入库单号") & "' and 来源单号 = '" & e.DataRow("来源单号") & "' and 主件品号='" & e.DataRow("主件品号") & "'")
e.DataRow("单日入库数量") = sum
End Select