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

For n2 As Integer = 0 To n-1    '打印4份

    Dim r1 as row   = Tables("统计表1").rows(n2)

dim s as string

for each c as col in Tables("统计表1").cols
if c.name like "档口名称_*"

s = s & "+" & r1(c.name)  & r1("单位")

endif

r1("购货单位") = s.trim("+")
Next