主题：重复填充

试试这样写。

Dim t1 As Table = e.Form.Controls("毛坯工序").Table
Dim h As New Filler
h.SourceTable = DataTables("产品工艺路线") '指定数据来源
h.DataTable =  t1.DataTable
h.Fill()

这样写代码

Dim t1 As DataTable = e.Form.Controls("毛坯工序").Table.DataTable
Dim dt1 As DataTable = DataTables("毛坯工序维护_条码维护")
Dim dt2 As DataTable = DataTables("产品工艺路线")
Dim Cols1() As String = {"成品编码","毛坯编码"}
Dim Cols2() As String = {"成品编码","毛坯编码"}
Dim Cols3() As String = {"加工工序","加工内容","成品描述"}
Dim Cols4() As String = {"加工工序","加工内容","成品描述"}
For Each dr1 As DataRow In dt1.Select("")
    For Each dr3 As DataRow In dt2.Select("成品编码 = '" & dr1("成品编码") & "'")
        Dim dr2 As DataRow = t1.AddNew()
        For i As Integer = 0 To Cols1.Length -1
            dr2(Cols2(i)) = dr1(Cols1(i))
        Next
        For i As Integer = 0 To Cols3.Length -1
            dr2(Cols4(i)) = dr3(Cols3(i))
        Next
    Next
Next