SQL 3个表格各个汇总，然后相同条件的相减，求帮助！，我只会2个表格相减

bingoleexuben

    之前这个求助已解决！     我现在是想增加一个sheet,用附件的订单 减 完成 减  在生产，用SQL  出现了不想要有结果！变成了订单减完成，订单 减在生产。而没有同时减，有重复行了。
             求高人帮我重改代码，做到正确的结果：  表格订单汇总后   减完成汇总  再减  在生产汇总。
已解决！！！  比VBA 字典好很多哇！！！！！！！
经过 自己的测试：代码如下   Private Sub CommandButton1_Click()
Dim conn As Object, sql$, Sh As Worksheet
Set Sh = Sheets("Sheet7")
Set conn = CreateObject("adodb.connection")
Sh.UsedRange.ClearContents  '清除Sheet7工作表内容
'You use Excel 2007-2010
conn.Open "provider=Microsoft.ACE.OLEDB.12.0;extended properties='excel 12.0;hdr=yes';data source=" & ThisWorkbook.FullName
      sql = ""
      sql = sql & "  Select T1.A1,T1.X,T2.Y+T3.Z,T1.X-T2.Y-T3.Z"
      sql = sql & "  FROM ((SELECT 花色 as A1,sum(重量) as X from [订单$a:e] GROUP BY 花色)T1 LEFT JOIN"
      sql = sql & "       (SELECT 花色 as B1,sum(重量) as Y from [完成$A:D] GROUP BY 花色)T2 ON T1.A1=T2.B1) LEFT JOIN"
      sql = sql & "       (SELECT 花色 as C1,sum(重量) as Z from [在生产$A:D] GROUP BY 花色)T3 ON T1.A1=T3.C1"
Sh.Range("A1:E1").Resize(, 4) = Array("花色", "订单重量", "完成重量", "欠数")   '表头
Sh.Range("A2").CopyFromRecordset conn.Execute(sql)  '结果比较
conn.Close
Set conn = Nothing
End Sub

xd3210

抢个沙发，一起学习

此用户被禁言

一样的名称你这还要分开，那表关联就成了多对多了。。。。

bingoleexuben

此用户被禁言 发表于 2020-9-22 14:32
一样的名称你这还要分开，那表关联就成了多对多了。。。。

就是不会啊，只会用SQL 统计 一个表格的汇总。涉及到2个表格的，还要用减，就不会了

此用户被禁言

我是说名称要合并展示一个最终，而不是你模拟的多个名称与多个名称的对应，这样多对多的连接后会造成迪卡尔运算积。。

bingoleexuben

此用户被禁言 发表于 2020-9-22 14:32
一样的名称你这还要分开，那表关联就成了多对多了。。。。

就是不会啊，只会用SQL 统计 一个表格的汇总。涉及到2个表格的，还要用减，就不会了

此用户被禁言

你没有懂我说的啥。。。。

bingoleexuben

此用户被禁言 发表于 2020-9-22 14:32
一样的名称你这还要分开，那表关联就成了多对多了。。。。

品名肯定不止这些。会很多，达到1万左右吧，我把其它的删了

flyfairy

实际数据量有多大,不是太多的话,直接用字典就行,很简单.

bingoleexuben

flyfairy 发表于 2020-9-22 15:40
实际数据量有多大,不是太多的话,直接用字典就行,很简单.

一年下来，会有30万吧，用字典我会。我想学SQL