datacolchanged事件
If e.DataCol.Name = "客户" Then
Dim d As Date = new Date(Date.Today.Year, 1, 1)
e.DataRow("一月_销售") = DataTables("明细").Compute("sum(销售金额)", "日期 >= #" & d & "# and 日期 < #" & d.AddMonths(1) & "# and 客户 = '" & e.DataRow("客户") & "'")
e.DataRow("一月_付款") = DataTables("明细").Compute("sum(付款金额)", "日期 >= #" & d & "# and 日期 < #" & d.AddMonths(1) & "# and 客户 = '" & e.DataRow("客户") & "'")
e.DataRow("二月_销售") = DataTables("明细").Compute("sum(销售金额)", "日期 >= #" & d.AddMonths(1) & "# and 日期 < #" & d.AddMonths(2) & "# and 客户 = '" & e.DataRow("客户") & "'")
e.DataRow("二月_付款") = DataTables("明细").Compute("sum(付款金额)", "日期 >= #" & d.AddMonths(1) & "# and 日期 < #" & d.AddMonths(2) & "# and 客户 = '" & e.DataRow("客户") & "'")
End If