用DateReport如何按月进行分组统计？

Question

有一个收费表。有收费时间date,收费项目item,收费金额money,操作员user,....等字段。
现在想要对它进行按月合计和按月累计。收费时间是yyyy-mm-dd格式。我在用收费时间进行分组统计的时候，得到的是以“日”进行的分组统计，而不是按月，有什么方法能得到按月进行分组？
就是想得到这种格式：
2002-5-1 　项目1　200.00　...
2002-5-2　项目2　 200.00　...
2002-5-31 项目3   200.00　...
月计：　　　　　　600.00
累计：　　　　　　600.00　
2002-6-1　项目3　100.00　...
2002-6-6　项目5　100.00　...
2002-6-30　项目3 50.00　...
月计：　　　　　　250.00 ...
累计：　　　　　　850.00 ...
2002-7-1　项目3　100.00　...
月计：　　　　　　100.00 ...
累计：　　　　　　950.00 ...
.....

Answer 1

See:
http://expert.csdn.net/Expert/topic/1140/1140533.xml?temp=.5329553

Answer 2

cn_rpt_cnstr = "Provider=MSDataShape.1;Persist Security Info=True;Data Source="
   cn_rpt_cnstr = cn_rpt_cnstr & serv & ";User ID=sa;Password=" + psd + ";Initial Catalog=" + my_db + ";Data Provider=SQLOLEDB.1"
   det_rpt.cn_rpt.CursorLocation = adUseClient
   det_rpt.cn_rpt.CommandTimeout = 10
   det_rpt.cn_rpt.connectionstring = cn_rpt_cnstr
   det_rpt.cn_rpt.Open
   det_rpt.Commands.Item("rpt_fhtj_Grouping").commandtext = "SHAPE {SELECT * FROM v_sell_fhtj " + query_sql + "}  AS rpt_fhtj COMPUTE rpt_fhtj  BY 'depart','name','guige'"
   det_rpt.rsrpt_fhtj_Grouping.Source = "SHAPE {SELECT * FROM v_sell_fhtj " + query_sql + "}  AS rpt_fhtj COMPUTE rpt_fhtj  BY 'depart','name','guige'"
'   det_rpt.rsrpt_fhtj_Grouping.ActiveConnection = det_rpt.cn_rpt
'   det_rpt.rsrpt_fhtj_Grouping.Open
   det_rpt.Commands.Item("rpt_fhtj_Grouping").ActiveConnection = det_rpt.cn_rpt
   det_rpt.Commands.Item("rpt_fhtj_Grouping").Execute
   drt_fhtj_03.Show 1
   ...
   On Error GoTo lable_0
     det_rpt.rsrpt_fhtj_Grouping.Close
     det_rpt.cn_rpt.Close
lable_0:
    Err.Clearshape为什么东西？上面的代码看的不太明白，能否把我的表用上面的形式写出来，这样“硬来”也许理解的快一些！非常谢谢。