主题：[求助]

老师，

我有以下两个查询表，如何将以下查出来的结果存到一个表中？在这个合并的表中，再增加一个列名 “变更内容”，来自第一个查询的结果 在表列 变更内容 中写入 “ET变更”; 来自以下第二个查询的结果，在列 变更内容 中写入 “批号新增”，谢谢老师的解答。

'ET变更
Dim q  As new QueryBuilder
 q.TableName = "MPSDiff1"
q.Sel ectString = "Se 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 From {Orderlist} Inner JOIN {myPlanningBackup} ON {myPlanningBackup}.[批号] = {Orderlist}.[批号] Where {Orderlist}.ETD <> {myPlanningBackup}.ETD"
q.Build
 MainTable = Tables("MPSDiff1")

''批号新增
Dim qq  As new QueryBuilder
qq.TableName = "MPSDiff2"
qq.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,{myPlanningBackup}.批号 From {Orderlist} Left JOIN {myPlanningBackup} ON {myPlanningBackup}.[批号] = {Orderlist}.[批号] Where {myPlanningBackup}.批号 is null"
qq.Build
MainTable = Tables("MPSDiff2")