主题：主表与子表

If  e.Col.Name = "审批状态" Then '如果是分组行的数量列

    Dim countsub  = DataTables("子表").Compute("Count(*)","关联列 = '" & e.Row("关联列") &  "' and 审批='通过'")

    If countsub = 0 Then

        e.Text = "未审批"

    Else

        If e.Row.DataRow.GetChildRows("子表").Count  = countsub Then

            e.Text = "全部审批"

        Else

            e.Text = "部分审批"

        End If

    End If

End If