If e.DataCol.name = "审批完成" Then '工作策划主表,对应项目编号的审批完成全部勾选后, 工作任务完成提醒 对应项目编号的 各设计阶段完成逻辑列 勾选 20160722
Dim pr As DataRow
Dim cr As DataRow = e.DataRow
Dim c11 As Integer = cr.DataTable.Compute("count(项目编号)", "项目编号 = '" & cr("项目编号") & "' and 设计阶段 = '" & cr("设计阶段") & "'")
Dim c22 As Integer = cr.DataTable.Compute("count(项目编号)", "项目编号 = '" & cr("项目编号") & "' and 审批完成 = true and 设计阶段 = '" & cr("设计阶段") & "'")
pr = DataTables("工作任务完成提醒").find("项目编号 = '" & cr("项目编号") & "'")
If pr IsNot Nothing Then
pr(cr("设计阶段") & "_完成") = (c11 = c22)
End If
End If
加好友 
发短信
Post By：2016/8/2 16:38:00 [显示全部帖子]
