主题：求助：怎样把动态多行数据合并成一行

各位老师：我用一个临时统计表统计出来的数据，想把动态增加（第一次查询不一样）的多列数据合并成一列，如下图：

 

此主题相关图片如下：微信图片_20220722182109.jpg

 

我想达到的效果是：把购货单位这一列，替换成：购货单位后面、合计前面的多列数据组合，不包括空值。

   第一行：购货单位的内容是：6加单位列，即：6Kg

   第二列：                                               1Kg + 1Kg

   。。。。

 

我用的代码如下：

 

Dim b As New CrossTableBuilder("统计表1",DataTables("出库单明细"))
    b.HGroups.AddDef("名称")
    b.HGroups.AddDef("品牌")
    b.HGroups.AddDef("规格")
    b.HGroups.AddDef("单位")
    b.HGroups.AddDef("购货单位")
    b.VGroups.AddDef("档口名称")
    b.Totals.AddDef("数量")
    b.Filter = "[出库日期] = '" & e.Form.Controls("DateTimePicker1").Text & "' And 补货 = true"
    b.HorizontalTotal =  True
    b.VerticalTotal =  True
    b.Build()

With Tables("统计表1")
    .Position = 0     '下移一行
End With

Dim n As Integer = Tables("统计表1").Rows.Count
    'Dim r1  = Tables("统计表1").Current
For n2 As Integer = 1 To n    '打印4份
    Dim r1  = Tables("统计表1").Current

r1("购货单位") = r1(" ") '这句该怎样引用动态生成的列
      With Tables("统计表1")
         If  .Position = .Rows.Count - 1   '如果是未行
         Else
            .Position = .Position + 1     '下移一行
         End If
      End With
Next

 

标红的这句代码该怎么写，请各位老师指点！

谢谢！