主题：为什么输入表复制到大料表中列的位置会变啊

老师你好麻烦您帮我看下这个代码要怎么写啊  复制过去列的位置会变  有什么办法不改变列的位置吗

For Each dr1 As DataRow In DataTables("输入").Select("cd >" & 400)
    Dim dr2 As DataRow = DataTables("大料").AddNew
    For Each dc As DataCol In DataTables("大料").DataCols
        dr2(dc.Name) = dr1(dc.Name)
    Next
Next

我下面有好多表要复制处理的 位置变了 就数据对不上了

有没有办法位置不变啊 狐爸

我有好多表要复制的 每个都要调整位置很麻烦的