主题：赋值的时候如何能遍历所有列

“减少”按钮代码： 

For Each dr As Row In Tables("在职窗体_在职表").Rows

    If dr("减少原因") <> Nothing Then

        If dr("减少时间") = CurrentYM Then

               Dim r1 As DataRow = DataTables("在职职工表").Find("减少原因 Is Not Null ")

                Tables("不在职职工表").AddNew

                Dim r2 As Row = Tables("不在职职工表").Current

                r2("姓名") = r1("姓名")             '第1列名是 姓名

                r2("性别") = r1("性别")             '第2列名是 性别

               r2("出生年月") = r1("出生年月")   '第3列名是 出生年月

                r2("籍贯") = r1("籍贯")             '第4列名是 籍贯

               ' *****。。。。。。。。。。。。。还有第5列、第6列 等 很多100多列，没有写

                r1.delete

          End If

    End If

Next

因为【在职职工表】和【不在职职工表】两个表的结构完全一样，列数又很多，以后可能还有所增加或修改列名称，在*号处完全写完所有列不方便，请教怎么把所有的列全部赋值过来

 

 

谢谢大师的指教，太有用了，实际使用的时候我改了一点点

  

  For Each dc As DataCol In DataTables("在职职工表").DataCols
                  r2(dc.Name) = r1(dc.Name)
  Next