老师，我想在窗口1中输入项目名和项目号后，录入订单管理表各子项，同时将项目名和项目号也写入各行中，是不是不能用下面这种录入代码?要怎么写？

SystemReady = False
Dim mg As New Merger
mg.SourcePath ="C:\\Users\\ 订单管理表.xls"
mg.Format = "excel" \'指定格式
mg.SourceTableName = " 订单管理表$" \'指定要合并的表
mg.DataTableName = "订单" \'指定接收数据的表
mg.FieldMaps.Add("委托单位","客户简称")
mg.FieldMaps.Add("车型","项目名称")
mg.FieldMaps.Add("名称","部件名称")
mg.FieldMaps.Add("计划交期","计划交货期")
mg.FieldMaps.Add("车号","车号配置")
mg.FieldMaps.Add("收货人/收货地点","交货地点")
mg.Merge() \'开始合并
SystemReady = True

嗯，这个我知道。我只是不知道如何把窗口1中的项目名和项目号写入子项的每一行的代码。

就比如说在下面这个代码里，在合并的时候把项目名和项目号都加上去。

SystemReady = False
Dim mg As New Merger
mg.SourcePath ="C:\\Users\\ 订单管理表.xls"
mg.Format = "excel" \'指定格式
mg.SourceTableName = " 订单管理表$" \'指定要合并的表
mg.DataTableName = "订单" \'指定接收数据的表
mg.FieldMaps.Add("委托单位","客户简称")
mg.FieldMaps.Add("车型","项目名称")
mg.FieldMaps.Add("名称","部件名称")
mg.FieldMaps.Add("计划交期","计划交货期")
mg.FieldMaps.Add("车号","车号配置")
mg.FieldMaps.Add("收货人/收货地点","交货地点")
mg.Merge() \'开始合并
SystemReady = True

那是不是就是这段代码？然后怎样把窗口1中的项目名和项目代码加进去呢？

Dim Book As New XLS.Book("C:\\Users\\订单管理表.xls")
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Tables("订单").StopRedraw()
Dim Cols1() As String = {"委托单位","名称","图号","计划编号"，“数量”，“交货期”}
Dim Cols2() As String = {"客户简称","部件名称","图号","计划编号"，“数量”，“交货期”}
For dr1 As Integer = 1 To Sheet.Rows.Count -1
       dr2 =  DataTables("订单").AddNew()
    End If
   For i As Integer = 0 To Cols1.Length - 1
       dr2(Cols2(i)) = sheet(dr1,i).Text
   Next
Next
\'Tables("订单").ResumeRedraw()