包含 GroupCriterion 对象的集合。
备注
对于分组层次结构可以维护且单元格颜色可以为十六进制值的组，请使用 GroupCriteria2 集合对象。
示例
使用 GroupCriterion 对象
使用 **GroupCriteria (**Index) （其中Index 是标准索引）返回单个 GroupCriterion 对象。 下面的示例设置第一个条件单元格的颜色为蓝色的标准费率资源组中。
ActiveProject.ResourceGroups("Standard Rate").GroupCriteria(1).CellColor = pjBlue
使用 GroupCriteria 集合
使用 GroupCriteria 属性可以返回一个 GroupCriteria 集合。 以下示例显示在指定任务组中作为准则使用的域的列表，并指定这些域是按升序排序还是按降序排序。
Dim GC As GroupCriterion
Dim Fields As String
For Each GC In ActiveProject.TaskGroups("Priority Keeping Outline Structure").GroupCriteria
If GC.Ascending = True Then
Fields = Fields & GC.Index & ". " & GC.FieldName & " is sorted in ascending order." & vbCrLf
Else
Fields = Fields & GC.Index & ". " & GC.FieldName & " is sorted in descending order." & vbCrLf
End If
Next GC
MsgBox Fields
使用 Add 方法可以将 GroupCriterion 对象添加到 GroupCriteria 集合中。 以下示例将另一准则添加到指定的资源组中，以便按照完成工时的百分比（增量为 25%）确定的升序对资源分组。
ActiveProject.ResourceGroups("Response Pending").GroupCriteria.Add "% Work Complete", True, CellColor:=pjRed, GroupOn:=pjGroupOnPct1_25
方法
| 名称 |
|---|
| Add |
属性
| 名称 |
|---|
| Application |
| Count |
| 项目 |
| Parent |
另请参阅
支持和反馈
有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。