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

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

合并三个表数据？

方法一：分别合并填充

http://www.foxtable.com/webhelp/scr/0680.htm

方法二：用查询表，union all 语句

http://www.foxtable.com/webhelp/scr/0688.htm

具体问题上传例子说明。

此主题相关图片如下：微信图片_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)

做个按钮，执行下面代码

DataTables("线下全部订单数据表").DataRows.Clear
Dim Vals As List(of String())
Vals = DataTables("线下待发货订单数据表").GetValues("订单号|销售商编号")
For i As Integer = 0 To Vals.Count - 1
    Dim dr2 As DataRow = DataTables("线下全部订单数据表").AddNew()
    dr2("订单号") = Vals(i)(0)
    dr2("销售商编号") = Vals(i)(1)
Next
Vals = DataTables("线下已发货数据表").GetValues("订单号|销售商编号")
For i As Integer = 0 To Vals.Count - 1
    Dim dr2 As DataRow = DataTables("线下全部订单数据表").AddNew()
    dr2("订单号") = Vals(i)(0)
    dr2("销售商编号") = Vals(i)(1)
Next
Vals = DataTables("线下已收货数据表").GetValues("订单号|销售商编号")
For i As Integer = 0 To Vals.Count - 1
    Dim dr2 As DataRow = DataTables("线下全部订单数据表").AddNew()
    dr2("订单号") = Vals(i)(0)
    dr2("销售商编号") = Vals(i)(1)
Next

可以，，，谢谢大神

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