主题：[求助]统计表的疑问，请大侠帮助

 只能够在生产报表以后再对表头进行处理了，楼主，代码如下。

Dim g As New CrossTableBuilder("统计表", DataTables("产品表"))
g.HGroups.AddDef("大类别")
g.HGroups.AddDef("小类别")
g.VGroups.AddDef("进货日期", DateGroupEnum.Year, "{0}年")
g.VGroups.AddDef("进货日期", "{0}月")
g.Totals.AddDef("进价小计", "进价小计")
g.Totals.AddDef("售价小计", "售价小计")
g.Totals.AddDef("数量", "数量")
g.Build()

With DataTables("统计表")
    For Each dc As DataCol In .DataCols
        If dc.Caption Like "####年_*" Then
            dc.Caption = dc.Caption.SubString(0, 5) & dc.Caption.SubString(6)
        End If
    Next
    .BuildHeader()
End With

MainTable = Tables("统计表")

 统计，处理，再设置。

Dim g As New CrossTableBuilder("统计表", DataTables("产品表"))
g.HGroups.AddDef("大类别")
g.HGroups.AddDef("小类别")
g.VGroups.AddDef("进货日期", DateGroupEnum.Year, "{0}年")
g.VGroups.AddDef("进货日期", "{0}月")
g.VGroups.AddDef("进货日期", "{0}日")
g.Totals.AddDef("进价小计", "进价小计")
g.Totals.AddDef("售价小计", "售价小计")
g.Totals.AddDef("数量", "数量")
g.Build()

With DataTables("统计表")
    For Each dc As DataCol In .DataCols
        If dc.Caption Like "####年_*" Then
            Dim idx As Integer = dc.Caption.IndexOf("月")
            dc.Caption = dc.Caption.SubString(0, 5) & dc.Caption.SubString(6, idx-5) & dc.Caption.SubString(idx+2)
        End If
    Next
    .BuildHeader()
End With

With Tables("统计表")
    .MergeMode = MergeModeEnum.Standard
    .MergeCols.Add("大类别")
    .MergeCols.Add("小类别")
    .AllowMerge = True
End With

 呵呵，是汇总代码写错了。

Dim g As New CrossTableBuilder("统计表", DataTables("产品表"))
g.HGroups.AddDef("大类别")
g.HGroups.AddDef("小类别")
g.VGroups.AddDef("进货日期", DateGroupEnum.Year, "{0}年")
g.VGroups.AddDef("进货日期", "{0}月")
g.VGroups.AddDef("进货日期", DateGroupEnum.Day, "{0}日")
g.Totals.AddDef("进价小计", "进价小计")
g.Totals.AddDef("售价小计", "售价小计")
g.Totals.AddDef("数量", "数量")
g.Build()

With DataTables("统计表")
    For Each dc As DataCol In .DataCols
        If dc.Caption Like "####年_*" Then
            Dim idx As Integer = dc.Caption.IndexOf("月")
            dc.Caption = dc.Caption.SubString(0, 5) & dc.Caption.SubString(6, idx-5) & dc.Caption.SubString(idx+2)
        End If
    Next
    .BuildHeader()
End With

With Tables("统计表")
    .MergeMode = MergeModeEnum.Standard
    .MergeCols.Add("大类别")
    .MergeCols.Add("小类别")
    .AllowMerge = True
End With