主题：提取新问题

这两天有空，花了2天全部的时间来练习狐表，遇到了个新提取问题，研究了几个小时都不成功，请红袍老师帮忙

表“销售统计”如下：

 
此主题相关图片如下：1.png

 通过按钮变成：

此主题相关图片如下：2.png

谢谢！

主要是依据快递单号提取二级编码，合并重量

 这个不就是直接分组统计就行了吗？分组统计以后，再动态添加一列合并内容。

 

 或者用代码也可以 http://www.foxtable.com/help/topics/2394.htm

 

 具体问题，做实例发上来，说明要做的效果。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1.table

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:比亚11.1.xls

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:4.27全.xls

通过导入比亚11的EXCEL表得到前面数据，后面的数据通过按钮“对账”导入后面的4.27全的EXCEL表提取，相同的快递单号=运单单号，合并起来，二级编码有几行就自动增加几行，重量kg自动统计出来

 不明白你的意思，直接导入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

 

此主题相关图片如下：3.png

我想要的是如上图，前半部分是导入快递公司的内容，后半部分是导入4.24的内容，遇到相同的单号，有多少二级编码就增加多少行，没有就一行，如上图

分别导入两个表，然后用查询表的方式合并两个表的内容

 

http://www.foxtable.com/help/topics/2322.htm