主题：一个遍历问题

那代码就改一下

Dim pr As DataRow    '"投标商务待审_Table8 "对应的任务索引号的逻辑列全部勾选, 投标商务副表的审批完成,完成列才勾选视为完成审批
Dim cr As Row = Tables("投标商务待审_Table8").current
Dim c1 As Integer = cr.Table.datatable.Compute("count(任务索引)", "任务索引 = '" & cr("任务索引") & "'")
Dim c2 As Integer = cr.Table.datatable.Compute("count(任务索引)", "任务索引 = '" & cr("任务索引") & "' and 审定完成 = true")
pr = DataTables("投标商务副表").find("任务索引 = '" & cr("任务索引") & "'")
If pr IsNot Nothing Then
    pr("审批完成") = (c1 = c2)
End If