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").colsif c.name like "档口名称_*"
s = s & "+" & r1(c.name) & r1("单位")
endif
r1("购货单位") = s.trim("+")Next