做个按钮,执行下面代码
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