主题：如何把符合条件的行复制剪切到另一个表

有两个表：在职表、不在职表，结构完全相同。 窗体中的按钮代码如下：

 

Dim  xingming As String, jsyy As String, jssj As String 

For Each dr As Row In Tables("在职教职工增减窗体_年内减少人员页-在职表").Rows

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

        If dr("减少时间") <> Nothing  Then 

            xingming = dr("姓名")

            jsyy =  dr("减少原因")

  '*******（此处待加代码）************

         End If

      End If

Next

 

【目标】：想把填写了“减少原因”和“减少时间”的找到的第一个姓名为“张三”的信息行从“在职表”全部剪切添加到“不在职表”，遍历所有的列名称，列数太多了，不能一个列一个列的写代码

 

请各位大师不吝指教！