汇总统计问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

Dim t As Table = Tables("表A")

Dim g As Subtotalgroup

t.SubtotalGroups.Clear()

g = New Subtotalgroup

g.GroupOn = "房间号"

g.Caption = "{0}"

t.SubtotalGroups.Add(g)

t.Subtotal()

Dim r As Row

For i As Integer = 0 To t.Rows.Count(True) - 1

r = t.Rows(i,True)

If r.IsGroup '如果是分组行

Dim f As String = "房间号 = '" & r("房间号") & "'"

Dim v As String = ""

For Each pm As String In DataTables("表A").GetValues("品名",f)

v = v & "," & pm & " :" & t.Compute("sum(数量)",f & " and 品名='" & pm & "'")

r("房间号") = f & v

End If

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

[此贴子已经被作者于2019/12/5 9:16:04编辑过]

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

写了什么代码，贴出来

建议先完整学习一些专业报表。没看懂原来的代码到底要干嘛，如果要原表输出

Dim doc As New PrintDoc

Doc.PageSetting.Width=210

Doc.PageSetting.topMargin = 0 '设置左边距

Doc.PageSetting.LeftMargin = 0 '设置左边距

Doc.PageSetting.RightMargin = 0 '设置右边距

'Doc.PrinterName=Vars("dyj")

Dim rt As New Prt.RenderTable

Dim rx As prt.RenderText

Dim cnt As Integer = 1

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

Dim r As Row

For i As Integer = 0 To tbl.Rows.Count(True) - 1

r = tbl.Rows(i,True)

If r.IsGroup Then

rt.Cells(i+1,0).SpanCols = 3

rt.Cells(i+1, 0).Text = r("房间号")

rt.Cells(i+1, 0).Style.TextAlignHorz = prt.AlignHorzEnum.Left

Else

For c As Integer = 0 To tbl.Cols.Count - 1

rt.Cells(i+1, c).Text = r(tbl.Cols(c).Name)

End If

Doc.Body.Children.Add(rt)

Doc.Preview

主题：汇总统计问题