SQL转置使用transform pivot后，如何在下面增加一项合计及其它出现的问题

xgy0214dxy

不多说了，主要就是转置后，如何在升成的数据表的最后一行，增加一个合计项，直接上附件，请老师指导！！

xgy0214dxy

自已顶一下，不能沉哟

xgy0214dxy

在线等老师

microyip

1. Private Sub CommandButton1_Click()
   
2.   Dim conn As Object, rs As Object
   
3.   Dim sql As String, sql1 As String, sql2 As String
   
4.   Dim i As Integer, field
   
5.          Set conn = CreateObject("adodb.connection")
   
6.          Set rs = CreateObject("adodb.recordset")
   
7.          conn.Open "dsn=excel files;dbq=" & ThisWorkbook.FullName
   
8.          sql = "select 档口,导购1 AS 导购,数量 AS DX FROM [A$] Where not(档口 is null) UNION ALL select 档口,导购2 AS 购导,数量 AS DX FROM [A$] Where not(档口 is null)"
   
9.          sql = sql & " Union All Select 档口,'合计' as 导购,Sum(数量)*2 as DX FROM [A$] Where not(档口 is null) Group By 档口"
   
10.          sql1 = "transform sum(dx) as 点效 select 导购,sum(dx) as HJ from (" & sql & ") Where not(档口 is null) group by 导购 Order By 导购 PIVOT 档口"
    
11.          Cells.Clear
    
12.          Range("B5").CopyFromRecordset conn.Execute(sql1)
    
13.          rs.Open (sql1), conn
    
14.          For Each field In rs.Fields
    
15.              [a4].Offset(0, i + 1) = "'" & field.Name
    
16.              i = i + 1
    
17.          Next
    
18.          Range("B4").CurrentRegion.Borders.LineStyle = 1
    
19.          conn.Close
    
20.          Set conn = Nothing
    
21.          Set rs = Nothing
    
22. 
    
23. End Sub

复制代码

microyip

我不会指定顺序的Order By写法，能做到就只能是这个样子

microyip

你所说的“<>"是因为存在Null数据

xgy0214dxy

有启发性，不过合计项怎么才能放在最后一列，等老师解

microyip

xgy0214dxy 发表于 2016-6-18 18:34
有启发性，不过合计项怎么才能放在最后一列，等老师解

我都想学习一下呢，现在在研究中

xgy0214dxy

microyip 发表于 2016-6-18 18:38
我都想学习一下呢，现在在研究中

ORDER BY   DESC  降序  就可以了，刚学习了一下

microyip

xgy0214dxy 发表于 2016-6-18 18:44
ORDER BY   DESC  降序  就可以了，刚学习了一下

这是自欺欺人的做法，原则上，你要求数字按升序处理，但”合计“又排后面，怎么办？在字符串比较里面，好像中文会先被默认为0，也就是说，升序时中文会排在数字前面