楼主，全部代码换为以下代码吧，简单不累赘。
Dim bm As String = "统计表1"
Dim b As New SQLGroupTableBuilder(bm,"订单")
b.Groups.AddDef("客户姓名")
Dim lst As new List(of String)
lst.Add(Date.Today)
lst.AddRange(DataTables("产品").GetValues("产品"))
For Each ls As String In lst
If ls = CStr(Date.Today)
b.Totals.AddExp(ls & "_数量","iif(购买时间=#" & ls & "#,数量,0)")
b.Totals.AddExp(ls & "_金额","iif(购买时间=#" & ls & "#,金额,0)")
Else
b.Totals.AddExp(ls & "_数量","iif(产品='" & ls & "',数量,0)")
b.Totals.AddExp(ls & "_金额","iif(产品='" & ls & "',金额,0)")
End If
Next
b.VerticalTotal = True
Tables("报表_table1").DataSource = b.Build(True)
加好友 
发短信
Post By：2018/5/9 9:25:00 [显示全部帖子]
