主题：如何跨表统计并自动汇总指定时间段的数据

If e.DataCol.Name = "客户_客户编码"  Then

    Dim Filter1 As String = "[客户_客户编码] = '" & e.NewValue & "'"

    Dim d1 As Date = Date.Today

    Dim month As Integer = d1.Month

    Dim year As Integer = d1.Year

    Dim day As Integer = d1.Day

    Dim d2 As Date = New Date(Year, Month, 1)

    e.DataRow("本月发货额") = DataTables("发货明细表").Compute("Sum("发货金额")",  "发货时间 >= d2 and 发货时间 <= d1", Filter1)

End If

想从发货明细表中自动计算并带入指定时间段的发货金额，到销售报表中，没学过编程，怎么编也编不对，还得麻烦您，帮我改一改，顺便把季度、半年、整年、上年的也告诉我吧，谢谢啦亲
此主题相关图片如下：fl{x7ayqd$1xe%yhjtuy3k.png

参考代码

If e.DataCol.Name = "客户_客户编码"  Then
    Dim d1 As Date = new Date(Date.today.Year, 1, 1)
    Dim d2 As Date = d1.AddYears(1)

    e.DataRow("本年发货额") = DataTables("发货明细表").Compute("Sum("发货金额")",  "发货时间 >= #" & d1 & "# and 发货时间 < #" & d2 & "# and [客户_客户编码] = '" & e.NewValue & "'"
")

End If

http://www.foxtable.com/webhelp/scr/2720.htm