主题：[求助]请老师帮助

太感谢两位老师，谢谢你们无私的帮助，，感动。。。。

你这个代码是什么意思,无法看懂.

就是如果“SHYJ”列的内容是“同意”，则“SH1”的内容取本表的“SQJE”内容，如果 “SHYJ”列 内容是“修改”，则“SH1”列的为空，需要人为填写，如是 “SHYJ”列 内容是其他，则“SH1”的值为0

For Each r As Row In Tables("ZJJHB").GetCheckedRows
    If r.IsNull("SHR") Then
        MessageBox.Show("填报部门未审核,不能审核!.")
    Else
        If r.IsNull("SHYJ") Then
            MessageBox.Show("审核意见为空,请检查!.")
        Else
            r("SH") = User.Name
            r.Save()
        End If      
    End If
Next

谢谢老师，现在有个问题：

1、数据行加入 人名、工作组名，判断一下即可。

 

2、分组成集团员工和普通人员啊

还有就是有些记录，比如资金申请，我8月份申请了，没有获得付款，9月份继续需要申报，希望通过点击某个按钮后，自动复制整行到表后的区域，然后修改时间，保存。对于重复的行希望能够自动复制，不需要再重新填写。我看有个自动复制的功能，但那是复制到其他表里去，我试着把代码改后希望能在复制到同一张里的后面，但没有成功。