不明白你的意思，直接导入4.27全表后编写下面代码合并数据
Dim g As New GroupTableBuilder("统计表1", DataTables("表427"))
g.Groups.AddDef("买家旺旺")
g.Groups.AddDef("买家姓名")
g.Groups.AddDef("买家省份")
g.Groups.AddDef("详细地址")
g.Groups.AddDef("详细地址")
g.Groups.AddDef("买家手机")
g.Groups.AddDef("快递单号")
g.Groups.AddDef("打印时间")
g.Totals.AddDef("商品数量")
g.Totals.AddDef("重量kg")
g.Build()
Dim t As Table = Tables("统计表1")
t.DataTable.DataCols.Add("二级编码", Gettype(String), 999)
For Each r As Row In t.Rows
Dim str As String = ""
For Each dr As DataRow In DataTables("表427").Select("快递单号 = '" & r("快递单号") & "'")
str &= dr("二级编码") & "*" & dr("商品数量") & ","
Next
r("二级编码") = str.trim(",")
Next
MainTable = t
加好友 
发短信
Post By：2016/4/28 14:29:00 [显示全部帖子]
