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

以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  蓝版帮看一下，根据入库明细和出库明细生成库存表  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=162986)

--  作者：foxtablefanse
--  发布时间：2021/4/19 18:21:00
--  蓝版帮看一下，根据入库明细和出库明细生成库存表
有个入库明细和出库明细，想按年统计每一个物料（要包含仓库、物料编号、物料名称、规格、）的库存（数量和金额），该如何设置！

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

--  作者：foxtablefanse
--  发布时间：2021/4/19 18:24:00
--
不传不了附件？

--  作者：有点蓝
--  发布时间：2021/4/19 20:13:00
--

做合并统计即可：http://www.foxtable.com/webhelp/topics/2305.htm

上传附件：http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=78

重复上传直到出现下载链接，注意文件不能大于2M

--  作者：foxtablefanse
--  发布时间：2021/4/20 9:44:00
--

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

提示材料编码不属于表

--  作者：foxtablefanse
--  发布时间：2021/4/20 9:51:00
--

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

--  作者：有点蓝
--  发布时间：2021/4/20 9:56:00
--
参考：http://www.foxtable.com/webhelp/topics/2392.htm

--  作者：foxtablefanse
--  发布时间：2021/4/20 12:39:00
--

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

--  作者：有点蓝
--  发布时间：2021/4/20 13:32:00
--

Dim nms As String() = {"年","月","仓库","材料编码","材料名称","规格型号","单位"} \'指定连接列
dt1.Combine(nms,dt2,nms) \'将销售统计数据组合到进货统计数据
dt1.Show("库存统计") \'显示统计结果
With DataTables("库存统计").DataCols \'用表达式列计算库存数据
.Add("库存_数量",Gettype(Integer), "IsNull([入库_数量],0) - ISNULL([出库_数量],0)")
.Add("库存_金额",Gettype(Double), "[库存_数量] /[入库_数量] * [入库_金额]")
End With
MainTable=Tables("库存统计")
Tables("库存统计").OpenFilterTree("年|月|仓库")

--  作者：foxtablefanse
--  发布时间：2021/4/20 13:54:00
--
谢蓝版！！！