主题：如何在表C中找出对应的多行并自动增加到表A中

DataColChanged

Select Case e.DataCol.name
    Case "报料阶段", "使用工艺名称"
        If e.DataRow.isnull("报料阶段")= False AndAlso e.DataRow.isnull("使用工艺名称") = False Then
            Dim Cols1() As String = {"来源列一","来源列二","来源列三"}
            Dim Cols2() As String = {"接收列一","接收列二","接收列三"}
            Dim drs As List(Of DataRow) = DataTables("表B").Select("报料阶段 = '" & e.DataRow("报料阶段") & "' and 工艺名称 = '" & e.DataRow("使用工艺名称") & "'")
            systemready = False
            For i As Integer = 0 To drs.count-1
                Dim dr2 As DataRow
                If i = 0 Then
                    dr2 = e.DataRow
                Else
                    dr2 = e.DataTable.addnew
                End If
                For j As Integer = 0 To Cols1.Length -1
                    dr2(Cols2(j)) = e.DataRow(Cols1(j))
                Next
               
                dr2("报料阶段") = e.DataRow("报料阶段")
                dr2("使用工艺名称") = e.DataRow("使用工艺名称")
               
            Next
            systemready = True
        End If
End Select