Select Case e.DataCol.Name Case "客户ID" Dim Filter As String = "客户ID = '" & e.DataRow("客户ID") & "'" e.DataRow("销售_数量") = DataTables("出库明细").Compute("Sum(出库_数量)", Filter) e.DataRow("销售_金额") = DataTables("出库明细").Compute("Sum(出库_价税合计)", Filter) e.DataRow("开piao_开piao金额") = DataTables("出库明细").Compute("Sum(出库_价税合计)", Filter & " And 已开piao = True") 'e.DataRow("结欠金额") = e.DataRow("销售_金额") - e.DataRow("开piao_金额") End Select
|