怎么汇总3个表中数据？？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

全部订单数据表=待发货订单数据表+已发货数据表+已收货数据表

此主题相关图片如下：微信图片_20171116111055.png

订单表

Dim dr1 As DataRow = DataTables("线下待发货订单数据表").AddNew()

Dim dr2 As DataRow = DataTables("线下待发货订单数据表").AddNew()

For Each dc As DataCol In DataTables("线下全部订单数据表").DataCols

dr2(dc.Name) = dr1(dc.name)

Dim dr3 As DataRow = DataTables("线下已发货数据表").AddNew()

For Each dc As DataCol In DataTables("线下全部订单数据表").DataCols

dr3(dc.Name) = dr1(dc.name)

Dim dr4 As DataRow = DataTables("线下已收货数据表").AddNew()

For Each dc As DataCol In DataTables("线下全部订单数据表").DataCols

dr4(dc.Name) = dr1(dc.name)

Dim Vals As List(of String())

Vals = DataTables("线下待发货订单数据表").GetValues("订单号|销售商编号")

Vals = DataTables("线下已发货数据表").GetValues("订单号|销售商编号")

Vals = DataTables("线下已收货数据表").GetValues("订单号|销售商编号")

For i As Integer = 0 To Vals.Count - 1

Dim dr As DataRow = DataTables("线下全部订单数据表").AddNew()

dr("订单号") = Vals(i)(0)

dr("销售商编号") = Vals(i)(1)

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

Dim dr1 As DataRow = DataTables("线下待发货订单数据表").AddNew()

Dim dr2 As DataRow = DataTables("线下全部订单数据表").AddNew()

Dim dr3 As DataRow = DataTables("线下已发货数据表").AddNew()

Dim dr4 As DataRow = DataTables("线下已收货数据表").AddNew()

For Each dc As DataCol In DataTables("线下待发货订单数据表").DataCols

dr2(dc.Name) = dr1(dc.name)

For Each dc As DataCol In DataTables("线下已发货数据表").DataCols

dr2(dc.Name) = dr3(dc.name)

For Each dc As DataCol In DataTables("线下已收货数据表").DataCols

dr2(dc.Name) = dr4(dc.name)

Dim Vals As List(of String())

Vals = DataTables("线下待发货订单数据表").GetValues("订单号|销售商编号")

Vals = DataTables("线下已发货数据表").GetValues("订单号|销售商编号")

Vals = DataTables("线下已收货数据表").GetValues("订单号|销售商编号")

For i As Integer = 0 To Vals.Count - 1

dr2("订单号") = Vals(i)(0)

dr2("销售商编号") = Vals(i)(1)

可以，，，谢谢大神

主题：怎么汇总3个表中数据？？