Dim FindStr As String
FindStr = "select 产品编码,期初数量 as a,0 as c,0 as e from 产品目录 "
FindStr = FindStr & " Union Select 产品编码,入库数量-出库数量,0,0 from 产品出入库明细"
FindStr = FindStr & " Union Select 产品编码,0,入库数量,出库数量 from 产品出入库明细"
FindStr = "Select 产品编码,sum(a) as 期初数量,sum(c) as 入库数量,sum(e) as 出库数量,(sum(a)+sum(c)-sum(e)) as 期末数量 from (" & FindStr & ") Group by 产品编码"
FindStr = "Select a.产品编码,产品名称,分类,期初数量,入库数量,出库数量,期末数量 from 产品目录 a Left Join (" & FindStr & ") b on a.产品编码=b.产品编码 ORDER BY 分类 DESC"
Call openRs(FindStr)