这个意思？
Dim y As Integer = 2020 '指定年份
Dim dt1 As New Date(y, 1, 1)Dim dt2 As New Date(y, 2, 1)
dim sql as string = "s
elect 产品 ,单位, （se
lect SUM(入库数量 - 出库数量) from 库存明细 where 出入库日期 >= #" & dt1 & "# and 出入库日期 < #" & dt1.addmonths(1) & "# and 产品=a.产品 and 单位=a.单位 group by 产品 ,单位）AS 1月库存,se
lect SUM(入库数量 - 出库数量) from 库存明细 where 出入库日期 >= #" & dt1 & "# and 出入库日期 < #" & dt1.addmonths(1) & "# and 产品=a.产品 and 单位=a.单位 group by 产品 ,单位）AS 2月库存 from 库存明细 as a"
加好友 
发短信
Post By：2020/8/14 11:41:00 [显示全部帖子]
