以文本方式查看主题

-  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=142359)

--  作者:冷泉
--  发布时间:2019/10/24 22:19:00
--  [求助]库存调拨表

图片点击可在新窗口打开查看此主题相关图片如下:20191024221009.png
图片点击可在新窗口打开查看


新建了个调拨单表,里面有2个仓库列,不知道如何关联了,其他表都是一个仓库列,库存表如何把调拨单表的数据整合到库存表计算了,麻烦老师指导下

库存表计算代码:

Dim nms As String() = {"仓库","商品编号","商品名称","规格","单位"} \'指定连接列
dt1.Combine(nms,dt2,nms)
dt1.Combine(nms,dt3,nms)

Tables("实时库存_Table1").DataSource = dt1 \'将统计结果绑定到Table
With DataTables("实时库存_Table1").DataCols  \'用表达式列计算库存数据
    .Add("实时库存_数量",Gettype(Double), "IsNull([累计进货_数量],0) + IsNull([期初_库存],0) - IsNull([累计出库_数量],0)")
    .Add("实时库存_金额",Gettype(Double), "iif([实时库存_数量]=0 Or [累计进货_数量]=0 Or [累计进货_金额]=0,0,IsNull([实时库存_数量],0) / IsNull([累计进货_数量],0) * IsNull([累计进货_金额],0))")
End With

--  作者:有点蓝
--  发布时间:2019/10/25 11:11:00
--  
分2次统计,写2段代码,调出仓库统计一次,调入仓库统计一次