主题：关于录入子项

老师，我想在窗口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()

没明白。什么情况？

老师，这个代码有个缺点就是两个表要一一对齐，如果如下图我只取：委托单位、计划编号、名称、图号、计划数量的话，就需要删除多余的列来保持一致，才能正确录入。不像Merger, 不管在哪个位置，有相同的就录进来了。

如果不想对原Excel表做太多的改动，有什么办法可以解决吗？

此主题相关图片如下：spximage1.jpg