|
If e.Col.name = "任务完成" Then
Dim pr As DataRow
Dim cr As Row = e.Row
Dim c1 As Integer = cr.Table.Compute("count(项目编号)", "项目编号 = '" & cr("项目编号") & "' and 设计阶段 = '" & cr("设计阶段") & "'")
Dim c2 As Integer = cr.Table.Compute("count(项目编号)", "项目编号 = '" & cr("项目编号") & "' and 任务完成 = true and 设计阶段 = '" & cr("设计阶段") & "'")
pr = DataTables("表B").find("项目编号 = '" & cr("项目编号") & "'")
If pr IsNot Nothing Then
pr(cr("设计阶段") & "完成") = (c1 = c2)
End If
End If
|
加好友 
发短信
Post By：2016/7/21 15:32:00 [显示全部帖子]
