以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 这个什么显示岀来 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=189331) |
-- 作者:qazlinle6 -- 发布时间:2023/11/25 14:33:00 -- 这个什么显示岀来 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 这个什么显示岀来
|
-- 作者:有点蓝 -- 发布时间:2023/11/25 16:43:00 -- 去掉bd1.Build ,bd2.Build dt1.Combine("库存_店名", dt2, "库存_店名") \'将销售统计数据组合到进货统计数据 With wb.AddTable("", "Table1") .Alternate = 7 \'每两行显示一个不同背景颜色的行 .CreateFromDataTable( dt1.TodataTable(), True) End With |