主题：如何按月份汇总数据

有生产表，各列为“生产工单”，“生产日期”，“生产数量", 在生产汇总表中有”生产工单”“生产数量”“月份”列，请教如何按月份汇总

在生产表datacolChanged写代码：

Dim Amount As Double = e.DataTable.Compute("Sum(生产数量)","生产工单 = '" & e.DataRow("生产工单") & "'")
Dim dr As DataRow
dr = DataTables("生产汇总").Find("生产工单 = '" & e.DataRow("生产工单") & "'")
If dr IsNot Nothing Then
    dr("生产数量") = Amount
Else
    dr = DataTables("生产汇总").AddNew()
    dr("生产工单") = e.DataRow("生产工单")
End If

能汇总全部数据，但无法分月份，如何写代码将生产日期为同一月份的，将所属月份显示在生产汇总的“月份"列? 谢谢！