Dim bd1 As New GroupTableBuilder("库存统计",DataTables("入库明细"))
Dim dt1 As fxDataSource
bd1.Groups.AddDef("入库日期", DateGroupEnum.Year, "年")
bd1.Groups.AddDef("入库日期", "月")
bd1.Groups.AddDef("仓库")
bd1.Groups.AddDef("材料编码")
bd1.Groups.AddDef("材料名称")
bd1.Groups.AddDef("规格型号")
bd1.Groups.AddDef("单位")
bd1.Totals.AddDef("数量", "入库_数量")
bd1.Totals.AddDef("金额", "入库_金额")
dt1 = bd1.BuildDataSource()
Dim bd2 As New GroupTableBuilder("统计表2",DataTables("出库明细"))
Dim dt2 As fxDataSource
bd2.Groups.AddDef("出库日期", DateGroupEnum.Year, "年")
bd2.Groups.AddDef("出库日期", "月")
bd2.Groups.AddDef("仓库")
bd2.Groups.AddDef("材料编码")
bd2.Groups.AddDef("材料名称")
bd2.Groups.AddDef("规格型号")
bd2.Groups.AddDef("单位")
bd2.Totals.AddDef("数量", "出库_数量")
bd2.Totals.AddDef("金额", "出库_金额")
dt2 = bd2.BuildDataSource()
Dim nms As String() = {"年","月","仓库","材料编码","材料名称","规格型号","单位"} '指定连接列
dt1.Combine(nms,dt2,nms) '将销售统计数据组合到进货统计数据
With DataTables("库存统计").DataCols '用表达式列计算库存数据
.Add("库存_数量",Gettype(Integer), "IsNull([入库_数量],0) - ISNULL([出库_数量],0)")
.Add("库存_金额",Gettype(Double), "[库存_数量] /[入库_数量] * [入库_金额]")
End With
dt1.Show("库存统计") '显示统计结果
MainTable=Tables("库存统计")
Tables("库存统计").OpenFilterTree("年|月|仓库")
红色的应该怎么改，提示不存在“库存统计”的 DataTable
加好友 
发短信
Post By：2021/4/19 18:21:00 [只看该作者]
