请教老师,下面这段代码,要实现同一个 任务索引 号下全部行的 审定完成 逻辑列为TRUE后, 投标商务副表 的 完成 列才为TRUE
我想应该是用遍历,但不知怎样来写
Dim pr As DataRow '"投标商务待审_Table8 "对应的任务索引号的逻辑列全部勾选, 投标商务副表的审批完成,完成列才勾选视为完成审批
Dim cr As Row = Tables("投标商务待审_Table8").current
Dim c1 As Integer = cr.Table.Compute("count(任务索引)", "任务索引 = '" & cr("任务索引") & "'")
Dim c2 As Integer = cr.Table.Compute("count(任务索引)", "任务索引 = '" & cr("任务索引") & "' and 审定完成 = true")
pr = DataTables("投标商务副表").find("任务索引 = '" & cr("任务索引") & "'")
If pr IsNot Nothing Then
pr("审批完成") = (c1 = c2)
End If