主题：统计，固定格式，能根据特定的统计要求（如某个月份），来显示统计结果

Dim filter As String

If e.Sender.text = "全部" Then

    filter = "1=1"   

Else

    filter = "[期间] =  '" & e.sender.Text & "'"

End If

e.Form.controls("table2").Table.filter = filter

DataTables("销售统计").DataRows.Clear

For Each cp As String In DataTables("订单").GetValues("产品", filter) 

    Dim ndr As DataRow = DataTables("销售统计").AddNew

    ndr("产品") = cp

    ndr("数量") = DataTables("订单").Compute("sum(数量)", filter & " and 产品 = '" & cp & "'")

    ndr("金额") = DataTables("订单").Compute("sum(金额)", filter & " and 产品 = '" & cp & "'")

Next