Dim bd1 As New SQLGroupTableBuilder("统计表1", "标签明细") '这里使用后台统计,如果数据已经全部加载可以直接用GroupTableBuilder
bd1.C '外部数据表的话要指定数据源名称
Dim dt1 As fxDataSource
bd1.Groups.AddDef("库存店名", "库存_店名")
bd1.Groups.AddDef("对账品名", "对账_品名")
bd1.Totals.AddDef("数量", "柜台_数量")
bd1.Totals.AddDef("金重", "柜台_金重")
bd1.Totals.AddDef("总重量", "柜台_总重量")
bd1.Totals.AddDef("标签价格", "柜台_标签_价格")
bd1.Filter = "库存备注 = '柜台货' And 库存店名 In ('周六福(1)','周六福(4)','周六福(7)') And 对账品名 In ('5G黄金', '金Au750', '足金999‰硬金', '足金999‰', '足金999.9‰','足金999.9非素') "'后台统计才可以使用这种表达式的哦
dt1 = bd1.BuildDataSource()
bd1.Build
Dim bd2 As New SQLGroupTableBuilder("统计表2", "销售明细") '这里使用后台统计,如果数据已经全部加载可以直接用GroupTableBuilder
bd2.C '外部数据表的话要指定数据源名称
Dim dt2 As fxDataSource
bd2.Groups.AddDef("店名", "库存_店名")
bd2.Groups.AddDef("对账品名", "对账_品名")
bd2.Totals.AddDef("数量", "销售_数量")
bd2.Totals.AddDef("金重", "销售_金重")
bd2.Totals.AddDef("总重量", "销售_总重量")
bd2.Totals.AddDef("标签价格", "销售_标签_价格")
bd2.Filter = "日期 = '2023-11-25' And 店名 In ('周六福(1)','周六福(4)','周六福(7)') And 对账品名 In ('5G黄金', '金Au750', '足金999‰硬金', '足金999‰', '足金999.9‰','足金999.9非素') "'后台统计才可以使用这种表达式的哦
dt2 = bd2.BuildDataSource()
bd2.Build
dt1.Combine("库存_店名", dt2, "库存_店名") '将销售统计数据组合到进货统计数据
Tables("标签明细汇总").DataSource = dt1 '将统计结果绑定到Table
With wb.AddTable("", "Table1")
.Alternate = 7 '每两行显示一个不同背景颜色的行
.CreateFromTable(Tables("标签明细汇总"), True)
End With
这个什么显示岀来
加好友 
发短信
Post By：2023/11/25 14:33:00 [显示全部帖子]
