数据分组汇总求和问题求助

sml

Access数据库,'产量表'中存放如下数据                       
型号        生产数量        姓名        年份        月份
D        　　90        　　王五        　　2008        　　1
A        　　100        　　李四        　　2008        　　1
B        　　95        　　张三        　　2008        　　1
A        　　80        　　李四        　　2008        　　1
B        　　95        　　张三        　　2008        　　1
D        　　100        　　王五        　　2008        　　1
…        …        …        …        …
…        …        …        …        …
根据型号与姓名分组，怎样求和得到结果如下：
型号        李四        王五        张三
A        180               
B                        190
D                190       
合计:        180        190        190

补充：用了VB中SQL语句如下
SQL = "TRANSFORM sum(生产数量1) SELECT 型号 FROM (SELECT 姓名, '合计:' as 型号,SUM(生产数量) AS 生产数量1 FROM 产量表 where 年份 = '2008' and 月份 = '1' GROUP BY 姓名 union all select 姓名,型号,(生产数量) AS 生产数量1 from 产量表 where 年份 = '2008' and 月份 = '1') GROUP BY 型号 PIVOT 姓名"
     
     RST.Open SQL, CNN
     Sheet1.Range("A10:G100").ClearContents
     Sheet1.Cells(10, 1).CopyFromRecordset RST
RST.Close
    Set RST = Nothing
    Set CNN = Nothing
为什么只显示
A        180               
B                        190
D                190       
合计:        180        190        190
上述的型号、李四、王五、张三等列标题不能显示在单元格中呢？？GROUP BY 型号 PIVOT 姓名

本SQL在VB　MSHFlexGrid控件中能显示列标题
求各位ExcelHome的朋友指点下^-^    (或者有什么更好的办法求解)

附件如下：

[ 本帖最后由 sml 于 2009-3-5 13:56 编辑 ]

Renco

加一段代码嘛

For i = 1 To RST.Fields.Count
       Sheet1.Cells(9, i) = RST.Fields(i - 1).Name
     
     Next i

sml

你好，加在原代码的哪个位置呢？请指点

sml

SQL语句中是以
GROUP BY 型号 PIVOT 姓名
型号分组，姓名为列

能否给个运行结果为正确的附件呢？

Renco

RST.Close
前面就行了.