专家坐堂-这个什么显示岀来Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  这个什么显示岀来  (http://foxtable.com/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