转帖源于本站以前的论坛 原作者:冰雪

示例中，有进货表JH和出货表CH，表中都有商场SC、产品CP、数量SL字段，要在窗体的列表框List0中显示各商场、各产品的库存数：

Private Sub Form_Load()
Dim str As String
str = "SELECT sc, cp, Sum(sl) AS 库存 FROM [SELECT jh.sc, jh.cp, jh.sl FROM jh UNION SELECT ch.sc, ch.cp, ch.sl * (-1) as sl FROM ch]. AS x GROUP BY sc, cp"
Me.List0.RowSource = str
Me.List0.Requery
End Sub