有两张表，表一“违章登记表”，表二“全年记录表”，领导审核后，把表一的考核分数与表二的考核分数进行计算，此段代码写在表一的datacolchanging
Dim dr As DataRow
dr = DataTables("全年记录表").Find("代号 = '" & e.DataRow("代号") & "'")
If e.DataRow("审核") = True Then '如果此行已经审批了,则禁止修改
dr("考核分数") = dr("考核分数") + e.DataRow("考核分数")
Tables("全年记录表").Current("考核分数") = Tables("全年记录表").Current("考核分数") - e.DataRow("考核分数")
End If
If e.DataRow("审核") = False Then
dr("考核分数") = dr("考核分数") - e.DataRow("考核分数")
Tables("全年记录表").Current("考核分数") = Tables("全年记录表").Current("考核分数") + e.DataRow("考核分数")
End If
如果随便在表二选定一行后，它计算时会在表二计算两行
加好友 
发短信
Post By：2013/2/12 10:47:00 [只看该作者]
