以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  怎么汇总3个表中数据？？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=109644)
--  作者：学学
--  发布时间：2017/11/16 10:17:00
--  怎么汇总3个表中数据？？
全部订单数据表=待发货订单数据表+已发货数据表+已收货数据表
--  作者：有点甜
--  发布时间：2017/11/16 10:52:00
--  

 合并三个表数据？

 

方法一：分别合并填充

 

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

 

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

 

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

 

具体问题上传例子说明。
--  作者：学学
--  发布时间：2017/11/16 11:12:00
--  订单表，，，是写到这个里面吗？？怎么没有显示呢

图片点击可在新窗口打开查看此主题相关图片如下：微信图片_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)
    Next
Dim dr3 As DataRow = DataTables("线下已发货数据表").AddNew()
    For Each dc As DataCol In DataTables("线下全部订单数据表").DataCols
        dr3(dc.Name) = dr1(dc.name)
    Next
Dim dr4 As DataRow = DataTables("线下已收货数据表").AddNew()
    For Each dc As DataCol In DataTables("线下全部订单数据表").DataCols
        dr4(dc.Name) = dr1(dc.name)
    Next
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)
Next
图片点击可在新窗口打开查看此主题相关图片如下：qq图片20171116110841.png
图片点击可在新窗口打开查看
--  作者：学学
--  发布时间：2017/11/16 11:22:00
--  这样也不对、、、、、、、、、、、、
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)
    Next
    For Each dc As DataCol In DataTables("线下已发货数据表").DataCols
        dr2(dc.Name) = dr3(dc.name)
    Next
    For Each dc As DataCol In DataTables("线下已收货数据表").DataCols
        dr2(dc.Name) = dr4(dc.name)
    Next

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)
Next
--  作者：有点甜
--  发布时间：2017/11/16 11:29:00
--  

做个按钮，执行下面代码

 

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
--  作者：学学
--  发布时间：2017/11/16 11:38:00
--  可以了啊，，，谢谢大神
可以，，，谢谢大神