专家坐堂-[求助]关于组合统计内添加筛选条件的问题Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim d1 As Date = Forms("外购原料库存查询").Controls("EndDate").Value

Dim bd1 As New GroupTableBuilder("生产原料库存查询",DataTables("原料出入库"))

Dim dt1 As fxDataSource

bd1.FromServer = True

bd1.Filter = "操作日期 <= \'" & d1 & "\' "

bd1.Groups.AddDef("原料批次") \'根据型号分组

bd1.Totals.AddDef("预入含税单价","预入含税单价") \'对金额进行统计

bd1.Totals.AddDef("入库件数","入库_件数") \'对金额进行统计

bd1.Totals.AddDef("发票标重","入库_标重") \'对数量进行统计

dt1 = bd1.BuildDataSource()

Dim bd2 As New GroupTableBuilder("统计表2",DataTables("外购原料出库"))

Dim dt2 As fxDataSource

bd2.FromServer = True

bd2.Filter = "操作日期 <= \'" & d1 & "\' "

bd2.Groups.AddDef("原料货号") \'根据型号分组

bd2.Totals.AddDef("出库件数","出库_件数") \'对金额进行统计

bd2.Totals.AddDef("出库标重","出库_标重") \'对数量进行统计

dt2 = bd2.BuildDataSource()

dt1.Combine("原料批次",dt2,"原料货号") \'将销售统计数据组合到进货统计数据

dt1.Show("生产原料库存查询")