以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  请教一段代码  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=28685)
--  作者：chenjiu6202
--  发布时间：2013/2/12 10:47:00
--  请教一段代码

有两张表，表一“违章登记表”，表二“全年记录表”，领导审核后，把表一的考核分数与表二的考核分数进行计算，此段代码写在表一的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

如果随便在表二选定一行后，它计算时会在表二计算两行
--  作者：lin_hailun
--  发布时间：2013/2/16 12:09:00
--  
 呃，楼主，那你现在的问题是什么，我没看到重点。

 做好上传数据表结合你的说明。