Select Case e.DataCol.Name Case "名称" Dim Filter As String = "名称 = '" & e.DataRow("名称") & "'" e.DataRow("确认收入金额") = DataTables("确认收入").Compute("Sum(确认收入金额)", Filter) e.DataRow("回款金额") = DataTables("回款").Compute("Sum(回款金额)", Filter)End Select
参考:
http://www.foxtable.com/help/topics/1284.htm