如何实现收发存（VBA+SQL）

xiaoyaojun · 发表于 2017-3-23 16:38

详见附件！

amazeyeli · 发表于 2017-3-23 18:11

DECLARE @m int
SET @m=4
SELECT A.商品名称,A.型号,B.期初数量,C.入库数量,D.出库数量,ISNULL(B.期初数量,0)+ISNULL(C.入库数量,0)-ISNULL(D.出库数量,0) AS 期存数量
FROM
(
SELECT 商品名称,型号
FROM 年初
UNION
SELECT 商品名称,型号
FROM 入库
UNION
SELECT 商品名称,型号
FROM 出库
) AS A
LEFT JOIN
(
SELECT Q.商品名称,Q.型号,SUM(年初数量) AS 期初数量
FROM
(
SELECT 商品名称,型号,年初数量
FROM 年初
WHERE month(年初日期)<@m
UNION ALL
SELECT 商品名称,型号,入库数量
FROM 入库
WHERE month(入库日期)<@m
UNION ALL
SELECT 商品名称,型号,-出库数量
FROM 出库
WHERE month(出库日期)<@m
) AS Q
) AS A
ON A.商品名称=B.商品名称 AND A.型号=B.型号
LEFT JOIN
(
SELECT 商品名称,型号,SUM(入库数量) AS 入库数量
FROM 入库
WHERE month(入库日期)=@m
GROUP BY 商品名称,型号
) AS C
ON A.商品名称=C.商品名称 AND A.型号=C.型号
LEFT JOIN
(
SELECT 商品名称,型号,SUM(出库数量) AS 出库数量
FROM 出库
WHERE month(出库日期)=@m
GROUP BY 商品名称,型号
) AS D
ON A.商品名称=D.商品名称 AND A.型号=D.型号

复制代码

xiaoyaojun · 发表于 2017-3-23 18:44

amazeyeli 发表于 2017-3-23 18:11

大神，不会用，你能帮我把你的代码放进去上传上来吗？

amazeyeli · 发表于 2017-3-23 19:28

xiaoyaojun 发表于 2017-3-23 18:44
大神，不会用，你能帮我把你的代码放进去上传上来吗？

我也不会VBA,只是提供SQL思路

wbs605697131 · 发表于 2017-3-24 07:50

amazeyeli 发表于 2017-3-23 18:11

学习一下了

		自动登录	找回密码
密码			免费注册

[求助] 如何实现收发存（VBA+SQL）