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

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

 

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

 

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

 

请各位大师不吝指教！

你这代码,和你的需求.不对吧. 看的也迷迷糊糊的.

我是想在“在职表”里的某一批人移到“不在职表”里，

先在“在职表”里填写“减少原因”“减少时间”。然后逐条把这些人的信息移到“不在职表”里，就是不知道如何写好这段代码，请版主赐教

为何不直接在填写的时候就移过去.

没有想到这个捷径，能在填写的时候移动过去就更好了！

请教方法！

一般我们是这样做的:在在职表里加一个逻辑列 "是否离职" ,凡是需要移动的都勾上,然后判断这个逻辑列就行了

 楼主，循环表的所有列的代码如下，参考。