主题：怎样统计某个时间日期内各个客户所做的金额？

Dim d1 As WinForm.DateTimePicker = Forms("订单统计").Controls("日期1")

Dim d2 As WinForm.DateTimePicker = Forms("订单统计").Controls("日期2")

Dim s1,s2 As String

Dim ss1() As String = {d1.Value,d2.Value}

Dim ss2() As String = {">=","<="}

For i As Integer = 0 To ss1.Length-1

    If ss1(i) > ""

        s1 += " and 下单日期" & ss2(i) & "#" & ss1(i) & "#"

    End If

Next

If s1 > ""

    s1 = s1.TrimStart(" ","a","n","d")

End If

If s1 > ""

    s2 = s1.Replace("下单日期","").Replace(" and ","且").Replace("#","") & "统计结果"

Else

    s2 = "全部统计结果"

End If

Output.Show(s1)

Output.Show(s2)

Dim b As New SQLGroupTableBuilder("统计表1","订单")

b.C

b.Groups.AddDef("客户名称",s2 & "_客户名称")

b.Totals.AddExp("金额","订单数量 * 单价",s2 & "_金额")

b.Filter = s1

Tables("订单统计_Table1").DataSource = b.BuildDataSource()