应要求，整理了一下楼上的代码
也可以试试下面这段代码:
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()
Tables("订单统计_Table1").Cols("金额").GrandTotal = True
Tables("订单统计_Table1").GrandTotal = True
加好友 
发短信
Post By：2014/2/17 21:31:00 [显示全部帖子]
