蓝版帮看一下，根据入库明细和出库明细生成库存表 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

有个入库明细和出库明细，想按年统计每一个物料（要包含仓库、物料编号、物料名称、规格、）的库存（数量和金额），该如何设置！

[此贴子已经被作者于2021/4/20 9:51:53编辑过]

不传不了附件？

Dim bd1 As New GroupTableBuilder("入库统计",DataTables("入库明细"))

Dim dt1 As fxDataSource

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("出库统计",DataTables("出库明细"))

Dim dt2 As fxDataSource

bd2.Groups.AddDef("出库日期","月份")

bd1.Groups.AddDef("材料编码")

bd1.Groups.AddDef("材料名称")

bd1.Groups.AddDef("规格型号")

bd1.Totals.AddDef("数量","出库_数量") '对数量进行统计

bd1.Totals.AddDef("金额","出库_金额") '对金额进行统计

dt2 = bd2.BuildDataSource()

dt1.Combine("材料编码",dt2,"材料编码")

dt1.Combine("材料名称",dt2,"材料名称")

dt1.Combine("规格型号",dt2,"规格型号")

Tables("窗口1_Table1").DataSource = dt1 '将统计结果绑定到Table

With DataTables("窗口1_Table1").DataCols '用表达式列计算库存数据

.Add("库存_数量",Gettype(Integer), "IsNull([入库_数量],0) - ISNULL([出库_数量],0)")

.Add("库存_金额",Gettype(Double), "[库存_数量] /[入库_数量] * [入库_金额]")

End With

提示材料编码不属于表

下载信息 [文件大小：下载次数： ]
点击浏览该文件:仓库 - 副本.zip

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

主题：蓝版帮看一下，根据入库明细和出库明细生成库存表