vba多列多条件求和

吓你一跳

tanglf188 发表于 2024-5-6 14:22

大神      Sele_str 下怎么执行以下sql语句啊，替换成以下语句执行不了，需要怎么改啊。

Select A.dt,A.dapt,A.dgqty,dgamt,b.dgqty,bgamt,b. yjqty,b.yjamt from
(Select 验收日 as dt ,大类名称  as  dapt ,SUM(订购数)  as  dgqty ,SUM(订购数*进价(未税))  as dgamt  From [Sheet2$]  Where  库存方式 = '02 通过型'  group by  验收日,大类名称)  A
left join
(Select 验收日  as dt ,大类名称 as  dapt ,SUM(订购数)  as  dgqty ,SUM(订购数*进价(未税)) as dgamt ,SUM(预拣数) as  yjqty,SUM(预拣数*进价) as yjamt  From [Sheet2$]  Where 单据类型 = '16 店铺进货单'  And  库存方式 = '02 通过型'  group by  验收日,大类名称) B
on  A.dt=B.dt,A.dapt=B.dapt,

Qs18

Sub sqltest()
Dim conn
  Dim rs
  Dim strConn As String, SQL As String
  Set conn = CreateObject("ADODB.Connection")
  Set rs = CreateObject("ADODB.Recordset")
  If Application.Version < 12 Then
    strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties=Excel 8.0;Data Source="
  Else
    strConn = "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties=Excel 12.0;Data Source="
  End If
  conn.Open strConn & ThisWorkbook.FullName
  SQL = "Select 大类名称,SUM(预拣数) as 预拣数合计 ,SUM(验收数) as 验收数合计 ,SUM(进货金额（未税）) as 未税数合计  From [Sheet2$] Where 单据类型 = '16 店铺进货单'  And  库存方式 = '02 通过型' GROUP BY 大类名称"
  rs.Open SQL, conn, 1, 2
  
   With Sheet1
        .Cells.Clear
        For i = 0 To rs.Fields.Count - 1
            .Cells(1, i + 1) = rs.Fields(i).Name
        Next i
        .Range("A2").CopyFromRecordset rs
        .Cells.EntireColumn.AutoFit
    End With
    Beep
  rs.Close
  conn.Close
  Set rs = Nothing
  Set conn = Nothing
End Sub

吓你一跳

Qs18 发表于 2024-5-14 12:25
Sub sqltest()
Dim conn
  Dim rs

谢谢，是想执行以下SQL语句, SQL替换成以下语句执行不了，需要怎么改？
Select A.dt,A.dapt,A.dgqty,dgamt,b.dgqty,bgamt,b. yjqty,b.yjamt from
(Select 验收日 as dt ,大类名称  as  dapt ,SUM(订购数)  as  dgqty ,SUM(订购数*进价(未税))  as dgamt  From [Sheet2$]  Where  库存方式 = '02 通过型'  group by  验收日,大类名称)  A
left join
(Select 验收日  as dt ,大类名称 as  dapt ,SUM(订购数)  as  dgqty ,SUM(订购数*进价(未税)) as dgamt ,SUM(预拣数) as  yjqty,SUM(预拣数*进价) as yjamt  From [Sheet2$]  Where 单据类型 = '16 店铺进货单'  And  库存方式 = '02 通过型'  group by  验收日,大类名称) B
on  A.dt=B.dt,A.dapt=B.dapt,