主题：关于 根据条件复制上一行记录内容疑问

用DataRowAdding事件

或者：

Select Case e.DataCol.Name
    Case "是否有管理责任"
        if e.DataRow.IsNull("是否有管理责任") = False Then
            if e.DataRow("是否有管理责任") = "是" then

                Dim dr1 As Row = Tables("表A").rows(Tables("表A").Rows.Count -1)
                Dim dr2 As Row  = Tables("表A").AddNew()
                dr2("姓名") = dr1("直接上司")
                dr2("失职扣分") = dr1("失职扣分") * dr1("上司责任比例")
                dr2("工作内容") = dr1("姓名") & dr1("工作内容")  
            end if
        end if
End Select

其实问题就是简化为：如何获得最后一行和新增加的行。

不懂你的意思，你不是修改某行后，自动更新其后的一行吗？你这好像是更新其后所有的行，而且这些行的失职扣分列内容将完全相同。

这个应该你根据自己的需要编写调试代码，有问题再提问，因为只有你自己明白自己的需要。

这个应该没有办法的，新增行一定可见。

其实你换个法子，让人不能修改不就行了吗？