请教老师，下面这段代码是写在AfterEdit里面的，有个问题，如果 审批完成是在 表A正本表里面直接勾选，可实现跨表勾选，如果
是通过表B跨表勾选表A 的审批完成， 工作任务完成提醒，就无法勾选指定的逻辑列。
If e.Col.name = "审批完成" Then '工作策划主表,对应项目编号的审批完成全部勾选后, 工作任务完成提醒 对应项目编号的 各设计阶段完成逻辑列 勾选 20160722
Dim pr As DataRow
Dim cr As Row = e.Row
Dim c11 As Integer = cr.Table.Compute("count(项目编号)", "项目编号 = '" & cr("项目编号") & "' and 设计阶段 = '" & cr("设计阶段") & "'")
Dim c22 As Integer = cr.Table.Compute("count(项目编号)", "项目编号 = '" & cr("项目编号") & "' and 审批完成 = true and 设计阶段 = '" & cr("设计阶段") & "'")
pr = DataTables("工作任务完成提醒").find("项目编号 = '" & cr("项目编号") & "'")
If pr IsNot Nothing Then
pr(cr("设计阶段") & "_完成") = (c11 = c22)
End If
End If
好像要用 e.dataCol 和e.DataRow
[此贴子已经被作者于2016/7/28 18:26:20编辑过]
加好友 
发短信
Post By：2016/7/28 18:05:00 [显示全部帖子]
