试试这样写
systemready = False
If e.DataCol.name="已完成" Then
Dim count1 As Integer = e.DataTable.compute("count(工作号)", "工作号 = '" & e.DataRow("工作号") & "' and 已完成 = true")
If count1 = e.DataTable.compute("count(工作号)", "工作号='" & e.DataRow("工作号") &"'") Then
e.DataRow.GetParentRow("订单主表")("已完成")=True
Else
e.DataRow.GetParentRow("订单主表")("已完成")=False
End If
End If
systemready = True