主题：汇总统计问题

 
此主题相关图片如下：1.png


此主题相关图片如下：2.png

由图1生成图2报表，怎么生成？帮助中分组字段只能是一个，现在分组字段是二个房间号和品名，不知道怎么做了

 

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

点击浏览该文件:管理项目1.rar

参考：http://www.foxtable.com/webhelp/topics/1964.htm

 参考了，不是一个类型的，品名是变动的，不是静态的 ，如果品名静态的，就和那个一样了

没有区别，既然知道那就改为平时会使用的动态用法。帮助仅仅是帮助，帮助不是条条框框

 我们不是很专业,请老师谅解

这个不是专业不专业的问题，是解决问题的思维、思路。代码都是死的，脑子是活的....

Dim cnt As  Integer
Dim tbl As Table =  Tables("表A")
Dim drs As  List(Of DataRow)
Dim pds As  List(Of String) = tbl.DataTable.GetValues("")
rt.Style.Font = New Font("宋体", 11, FontStyle.Bold) '设置字体
rt.Style.GridLines.All = New prt.LineDef(0.3,Color.black)
rt.CellStyle.Spacing.All = 1
rt.Style.Font = tbl.Font
For c As Integer = 0 To tbl.Cols.Count - 1  '生成列标题
    rt.Cells(0,c).Text = tbl.Cols(c).Name
    rt.Cols(c).Width = tbl.Cols(c).PrintWidth
    rt.Style.TextAlignVert = prt.AlignHorzEnum.Center
    rt.Style.TextAlignHorz = prt.AlignHorzEnum.Center
Next
For Each pd As String In pds '分产品打印
    For Each dr As DataRow In drs '逐行打印此产品的订单
        cnt = rt.Rows.Count

            For c As Integer = 0 To tbl.Cols.Count - 1
                rt.Cells(cnt, c).Text = dr(tbl.Cols(c).Name)
            Next
    Next
    cnt = rt.Rows.Count
Next

 

这样的报表,能用这种方法打印吗?如果能,怎么改一下?

For Each pd As String In pds '分产品打印
    For Each dr As DataRow In drs '逐行打印此产品的订单
        cnt = rt.Rows.Count

            For c As Integer = 0 To tbl.Cols.Count - 1
                rt.Cells(cnt, c).Text = dr(tbl.Cols(c).Name)
            Next
    Next
    cnt = rt.Rows.Count

加统计代码？在这里加即可？方法参考上面的用法
Next

 不行,会报错,找不到该列,老师帮忙写一下呗

写了什么代码，贴出来