主题：[求助] 单元格合并和汇总

以下语句运行可以正常，我现在就想知道根据客人名称和款号合并单元格后怎样统计客人名称下的各个款号的数量小计，统计的语句要放在哪一段。谢谢！

Dim doc As New PrintDoc
Dim rt As New prt.RenderTable
Dim tb As Table = Tables("订单")

Dim cnt As Integer
Dim ColNames As String() = New String(){"客人名称", "款号","前幅","后幅","客人订单号","数量","已完成数量"}
Dim MergeCols As Integer = 4 '指定要合并的列数

tb.Sort = "客人名称,款号.前幅.后幅" '根据合并列排序
rt.Width = "Auto"
rt.SplitHorzBehavior = prt.SplitBehaviorEnum.SplitIfNeeded
rt.Style.Font = tb.Font
rt.Style.TextAlignVert = prt.AlignVertEnum.Center
rt.RepeatGridLinesVert = True '换页后重复表格线
For c As Integer = 0 To ColNames.Length - 1
    Dim lr As Integer ' 用于保存合并区域的起始行
    rt.Cells(0,c).Text = ColNames(c)
    rt.Cells(0,c).Style.TextAlignHorz = prt.AlignHorzEnum.Center
    rt.Cols(c).Width = tb.Cols(ColNames(c)).PrintWidth
    If tb.Cols(ColNames(c)).IsNumeric Orelse tb.Cols(ColNames(c)).IsDate Then
        rt.Cols(c).Style.TextAlignHorz = prt.AlignHorzEnum.Right
    End If
    For r As integer = 0 To tb.Rows.Count - 1
        If c <= MergeCols - 1 then '如果是要合并的列
            Dim Merge As Boolean = True
            If r = 0 Then
                Merge = False
            Else
                For n As Integer = 0 To c
                    if tb.Rows(r)(ColNames(n)) <> tb.Rows(r - 1)(ColNames(n))
                        Merge = False
                        Exit For
                    End If
                Next
            End If
            If Merge Then
                rt.Cells(lr,c).SpanRows = rt.Cells(lr,c).SpanRows + 1
            Else
                rt.Cells(r + 1, c).Text = tb.Rows(r)(ColNames(c))
                rt.Cells(r + 1, c).VertSplitBehavior = prt.CellSplitBehaviorEnum.Copy '换页 后重复单元格
                lr = r + 1
            End If
        Else
            rt.Cells(r + 1, c).Text = tb.Rows(r)(ColNames(c))
        End If
    Next

cnt = rt.Rows.Count
    rt.Cells(cnt, 0).Text = "小计 " & pd '打印产品的小计
    rt.Cells(cnt,5).Text = tbl.compute("Sum(数量)", "款号 = '" & pd & "' and 客人名称 = ‘”& kh & ”’")

Next
rt.Style.Gridlines.All = New prt.Linedef(Color.Gray)
rt.CellStyle.Spacing.All = 0.5
rt.Rows(0).Style.TextAlignHorz = prt.AlignHorzEnum.Center
rt.RowGroups(0,1).Header = prt.TableHeaderEnum.All
doc.Body.Children.Add(rt)
doc.Preview()