Dim Cols1() As String = {"工序","流程"}
        Dim Cols2() As String = {"工序","流程"}
        For Each dr1 As DataRow In DataTables("产品生产流程").Select("名称=  \'" & dr6("流程") &"\' And 状态=  \'" & "是" &"\'")
            Dim dr2 As DataRow = DataTables("工艺要求表").AddNew()
            For i As Integer = 0 To Cols1.Length -1
            dr2(Cols2(i)) = dr1(Cols1(i))
            dr2("规格型号") = dr6("规格型号")
            dr2("产品编号") = dr6("产品编号")
            dr2("拟制人") = _UserName
            dr2("日期") = Date.Today()
            Next
        Next

这个A表自动添加到B表，顺序乱了，没有按顺序添加，要如何设置才可以。