这个报表如何做，帮帮看看。

Question

如果不用excel 可以吗

Answer 1

这是一个竖表变横表的实例
sql Server 中用存储过程实现
Access 中用transform的命令实现
msdn里的一个例子Sub TransformX1()   Dim dbs As Database
   Dim strSQL As String
   Dim qdfTRANSFORM As QueryDef   strSQL = "PARAMETERS prmYear SHORT; TRANSFORM " _
      & "Count(OrderID) " _
      & "SELECT FirstName & "" "" & LastName AS " _
      & "FullName FROM Employees INNER JOIN Orders " _
      & "ON Employees.EmployeeID = " _
      & "Orders.EmployeeID WHERE DatePart " _
      & "(""yyyy"", OrderDate) = [prmYear] "
 
    strSQL = strSQL & "GROUP BY FirstName & " _
      & """ "" & LastName " _
      & "ORDER BY FirstName & "" "" & LastName " _
      & "PIVOT DatePart(""q"", OrderDate)"
   
   ' Modify this line to include the path to Northwind
   ' on your computer.
   Set dbs = OpenDatabase("Northwind.mdb")   Set qdfTRANSFORM = dbs.CreateQueryDef _
      ("", strSQL)
   
   SQLTRANSFORMOutput qdfTRANSFORM, 1994
   
   dbs.CloseEnd Sub