以文本方式查看主题

-  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