主题：关于录入子项

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

 

你这是把整个表合并了一次啊

是建立新项目（项目名和项目号），然后把项目中订单子项全部录入进来。

父表录入一条数据   项目名称和项目号

是的，然后在子表中每一行都写入同样的项目名称和项目号。

用这个方法,搞不定就上例子  http://www.foxtable.com/help/topics/2334.htm

嗯，这个我知道。我只是不知道如何把窗口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

 

一定要用6楼的方法才可以自由控制

 必须用6楼的方法

那是不是就是这段代码？然后怎样把窗口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()