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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 蓝版帮看一下，根据入库明细和出库明细生成库存表

共有3932人关注过本帖树形打印复制链接主题：蓝版帮看一下，根据入库明细和出库明细生成库存表

有点蓝

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：超级版主帖子：107323 积分：545876 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2021/4/19 20:13:00 [显示全部帖子]

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

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

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：超级版主帖子：107323 积分：545876 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2021/4/20 9:56:00 [显示全部帖子]

有点蓝

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：超级版主帖子：107323 积分：545876 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：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("年|月|仓库")

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