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

有没有大神可以帮忙修改达到表格效果呀，真的是搞不定了，谢谢！

加个判断都不会？

现在的情况是我写的语句不计算，不能显示“小计”
此主题相关图片如下：微信图片_20220816110529.png

达到我要的这个表的效果

哪个是打印小计的代码？

应该是这一部分

cp = tb.DataTable.GetValues("款号",tb.Filter) '返回产品不重复的值

    For Each pd As String In cp '分产品打印 msgbox(cp)

        kh = tb.DataTable.GetValues("客人代码",tb.Filter And " 款号 = '" & pd & "'")

        For Each pdd As String In kh '分客户打印

            Dim Filter = ""

            If tb.Filter > "" Then

                Filter = "款号 = '" & pd & "' and 客人代码 = '" & pdd & "' And " & tb.Filter

            Else

                Filter = "款号 = '" & pd & "' and 客人代码 = '" & pdd & "'"

            End If

            dim c1 as integer = rt.Rows.Count

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

rt.Cells(c1,0).SpanRows = drs.count

    cnt = rt.Rows.Count

    rt.Cells(cnt, 0).Text = pdd & "合计 "  '打印产品的小计

    rt.Cells(cnt, 0).style.TextAlignHorz = prt.AlignHorzEnum.right '水平居中排列

    rt.Cells(cnt, 0).Style.FontBold = True '字体加粗

    rt.Cells(cnt, 0).Style.FontSize = 10.5 '大体大小为16磅

    rt.Cells(cnt, 2).Style.FontBold = True '字体加粗

    rt.Cells(cnt, 2).Style.FontSize = 10.5 '大体大小为16磅

    rt.Cells(cnt, 3).Style.FontBold = True '字体加粗

    rt.Cells(cnt, 3).Style.FontSize = 10.5 '大体大小为16磅

    rt.Cells(cnt,0).SpanCols = 2 '第5行第2个单元格向右合并3列(用于显示地址)

    rt.Cells(cnt,2).Text = tbl.compute("Sum(数量)", "客人代码 = '" & pd & "'") & "个"

 Next

我只看到有合计，没看到有小计

是的，所以我现在有点晕，请帮忙看一下要怎样修改才能达到我发的表格的要求，思路是客代码列合并，然后款号列合并同时两个图片列放入相应款号的图片并且合并单元格，然后以客人代码对相应的款号的数量进行合计。 恳请老师帮忙，我搞了好久了。一开始是参考帮助的合并单元格，再参考汇总模式，但是把这两个揉合在一起就搞不清方向了。   谢谢！

请提供实例测试

我试了一下，不知道怎样上实例，要不然这样吧，请您帮忙讲一下如何把合并单元格和汇总模式两部分的语句合在一起，谢谢。

新建一个项目文件，导入需要的表格和部分测试数据，然后发上来