主题：如何进行按月分类汇总

请问要如何编写专业报表的代码实现以下的汇总效果？

 

 

此主题相关图片如下：按月分类汇总.bmp

你可以先生成这样的交叉统计表,再基于这个表生成专业报表

可以问下怎么生成交叉统计表吗？

http://www.foxtable.com/help/topics/0165.htm

 

此主题相关图片如下：123.bmp

完成了，可是生产的报表里面的表头上的月份没有了，该怎么改下呀？谢谢！

 

代码如下：

 

Dim g As New CrossTableBuilder("统计表1", DataTables("订单明细表"))
Dim dt As DataTable
g.HGroups.AddDef("客户产品号")
g.VGroups.AddDef("下单日期", "{0}月")
g.Totals.AddDef("订货数量", "订货数量")
g.Totals.AddDef("未税总价", "未税总价")
g.Decimals = 2
g.Build()
MainTable = Tables("统计表1")

dt = g.Build(True)
Dim doc As New PrintDoc
Dim rt As New prt.RenderTable
Dim Count As Integer = 0
For Each Col As DataCol In Dt.DataCols
    rt.Cells(0,Count).Text = Col.Name
    For r As Integer = 0 To dt.DataRows.Count - 1
        rt.Cells(r +1,Count).Text = dt.DataRows(r)(Col.Name)
    Next
    Count = Count + 1
Next
rt.Style.Gridlines.All = New prt.Linedef(Color.Gray)
rt.CellStyle.Spacing.All = 1
rt.Rows(0).Style.TextAlignHorz = prt.AlignHorzEnum.Center
doc.Body.Children.Add(rt)
doc.Preview()

没有的，就用代码动态添加进去，具体问题，请上传例子。

Dim g As New CrossTableBuilder("统计表1", DataTables("订单明细表"))
Dim dt As DataTable
g.HGroups.AddDef("客户产品号")
g.VGroups.AddDef("下单日期", "{0}月")
g.Totals.AddDef("订货数量", "订货数量")
g.Totals.AddDef("未税总价", "未税总价")
g.Decimals = 2

dt = g.Build(True)
Dim doc As New PrintDoc
Dim rt As New prt.RenderTable
Dim Count As Integer = 0
For Each Col As DataCol In Dt.DataCols
    If count > 0 Then
        If Col.Caption.StartsWith(count) = False Then
            For i As Integer = count To Col.Caption.Split("月")(0) - 1
                rt.Cells(0,Count).Text = i & "月_订货数量"
                For r As Integer = 0 To dt.DataRows.Count - 1
                    rt.Cells(r +1,Count).Text = ""
                Next
                count += 1
                rt.Cells(0,Count).Text = i & "月_未税总价"
                For r As Integer = 0 To dt.DataRows.Count - 1
                    rt.Cells(r +1,Count).Text = ""
                Next
                count += 1
            Next
        End If
    End If
    rt.Cells(0,Count).Text = Col.Name
    For r As Integer = 0 To dt.DataRows.Count - 1
        rt.Cells(r +1,Count).Text = dt.DataRows(r)(Col.Name)
    Next
    Count = Count + 1
Next
rt.Style.Gridlines.All = New prt.Linedef(Color.Gray)
rt.CellStyle.Spacing.All = 1
rt.Rows(0).Style.TextAlignHorz = prt.AlignHorzEnum.Center
doc.Body.Children.Add(rt)
doc.Preview()

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目5.table

例子已经上传了，请看下，谢谢！

Dim g As New CrossTableBuilder("统计表1", DataTables("aa"))
Dim dt As DataTable
g.HGroups.AddDef("客户产品号")
g.VGroups.AddDef("下单日期", "{0}月")
g.Totals.AddDef("订货数量", "订货数量")
g.Totals.AddDef("未税总价", "未税总价")
g.Decimals = 2

dt = g.Build(True)

Dim doc As New PrintDoc
Dim rt As New prt.RenderTable
Dim Count As Integer = 0
For Each Col As DataCol In Dt.DataCols
    If count > 0 Then
        If Col.Caption.StartsWith(count) = False Then
msgbox(2)
            For i As Integer = count To Col.Caption.Split("月")(0) - 1
                rt.Cells(0,Count).Text = i & "月_订货数量"
                For r As Integer = 0 To dt.DataRows.Count - 1
                    rt.Cells(r +1,Count).Text = ""
                Next
                count += 1
                rt.Cells(0,Count).Text = i & "月_未税总价"
                For r As Integer = 0 To dt.DataRows.Count - 1
                    rt.Cells(r +1,Count).Text = ""
                Next
                count += 1
            Next
        End If
    End If
    rt.Cells(0,Count).Text = Col.Caption
    For r As Integer = 0 To dt.DataRows.Count - 1
        rt.Cells(r +1,Count).Text = dt.DataRows(r)(Col.Name)
    Next
    Count = Count + 1
Next
rt.Style.Gridlines.All = New prt.Linedef(Color.Gray)
rt.CellStyle.Spacing.All = 1
rt.Rows(0).Style.TextAlignHorz = prt.AlignHorzEnum.Center
doc.Body.Children.Add(rt)
doc.Preview()

 

谢谢甜老师