Dim rec_k As ADODB.Recordset
Set rec_k = New ADODB.Recordset
Dim str_k As String
str_k = "select 表1.名称,sum(表1.数量

) ,"
str_k = str_k & "(select sum(表2.数量

) from 表2 where 表1.名称 = 表2.名称

group by 表2.名称) ,"
str_k = str_k & "(str(sum(表1.数量) -

(select sum(表2.数量) from 表2 where

表1.名称 = 表2.名称 group by 表2.名称

)))  from 表1 LEFT JOIN 表2 ON  表1.

名称=表2.名称 group by 表1.名称 ,表2.

名称"
rec_k.Open str_k, cn, adOpenStatic,

adLockOptimistic
Set DataGrid1.DataSource = rec_k '为

什么表1的数据会根据表2的数据条数重复统

计?

表1：
名称    数量
A        50
A        30
B         25
C        10

表2：
名称    数量
A        10
A         5
B         10
表1-表2=统计

已解决