你好,我有两个Se/lect语句,要把结果存于一个表中,该如何编写,如下合在一起出错了,谢谢。
Dim q As new QueryBuilder
q.TableName = "MPSDiff1"
q.Sel/ectString = "Se/lect {Orderlist}.OrderDate,{Orderlist}.批号,{Orderlist}.EndCustomer,{Orderlist}.CustomerPO,{Orderlist}.Pos,{Orderlist}.Part,{Orderlist}.PartNo,{Orderlist}.OrderQty,{Orderlist}.ETD,{myPlanningBackup}.OrderDate,{myPlanningBackup}.EndCustomer,{myPlanningBackup}.CustomerPO,{myPlanningBackup}.Pos,{myPlanningBackup}.Part,{myPlanningBackup}.PartNo,{myPlanningBackup}.OrderQty,{myPlanningBackup}.ETD From {Orderlist} Inner JOIN {myPlanningBackup} ON {myPlanningBackup}.[批号] = {Orderlist}.[批号] Where {Orderlist}.ETD <> {myPlanningBackup}.ETD" And q.Se/lectString = "Sel/ect {Orderlist}.OrderDate,{Orderlist}.批号,{Orderlist}.EndCustomer,{Orderlist}.CustomerPO,{Orderlist}.Pos,{Orderlist}.Part,{Orderlist}.PartNo,{Orderlist}.OrderQty,{Orderlist}.ETD,{myPlanningBackup}.OrderDate,{myPlanningBackup}.EndCustomer,{myPlanningBackup}.CustomerPO,{myPlanningBackup}.Pos,{myPlanningBackup}.Part,{myPlanningBackup}.PartNo,{myPlanningBackup}.OrderQty,{myPlanningBackup}.ETD,{myPlanningBackup}.批号 From {Orderlist} Left JOIN {myPlanningBackup} ON {myPlanningBackup}.[批号] = {Orderlist}.[批号] Where {myPlanningBackup}.批号 Is null"
q.Build
MainTable = Tables("MPSDiff1")