主题：提取的问题问问

我在表“制令信息”里：

If e.DataCol.Name = "产品编号" Then
   
    For Each dr As DataRow In DataTables("工价表").Select("产品编号 = '" & e.NewValue.Replace("'", "''") & "'")
        Dim nr As Row = Tables("制令工序").Addnew()
        nr("物料编号") = dr("物料编号")
        nr("品名规格") = dr("品名规格")
        nr("单位") = dr("单位")
        nr("工序") = dr("工序")
        nr("模具") = dr("模具")
        nr("系数") = dr("用料系数")
        nr("工价") = dr("修改工价")
    Next
End If

得出的结果是这样的：

 

此主题相关图片如下：123456.png

能不能变更下代码变成：

 

此主题相关图片如下：654321.png

老师，以上代码套用，变成了无止境的新增行了

看了只有变成子表才能解决了