以下是引用狐狸爸爸在2010-6-30 17:22:00的发言：
或者：
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
其实问题就是简化为：如何获得最后一行和新增加的行。
狐爸：照此代码，当录入者在 是否有管理责任 列中，输入 是后，，代码会自动马上复制一行。。有没有什么办法，让 复制的这一行马上隐藏，不能让输入者看见。 因为这是绩效考核数据，直接由上司输入下属的考核内容，下属扣分，上级也会扣分，，，我怕上司（输入者）看见后，会做假。。。想找个办法，自动隐藏.系统自动复制的行。。
加好友 
发短信
Post By：2010/7/3 14:23:00 [只看该作者]
