获取指示是否应当为指定的任务解决的潜在问题的 PjTaskWarnings 值的组合。 只读 Long。
语法
expression。 Suggestions
表达 返回 StartDriver 对象的表达式。
备注
如果没有任务的建议， 建议 的值为 0。 因为 pjTaskWarningsResourceBeyondMaxUnit 的值是 64， pjTaskWarningsResourceOverallocated 的值是 128，如果 建议 192，任务有两个潜在的问题。
注意
[!注释] PjTaskWarnings 枚举可用的 建议 属性和 警告 属性中。
示例
在以下示例中，如果任务 2 的 建议 属性的值是 128，消息框中显示 该资源处于过度分配状态。 如果值为 68，显示消息框:
工作分配大于可用的最大资源单位。
由于前置任务链接，卷影任务完成较早。
Sub GetTaskSuggestions()
Dim suggestions As Long
Dim suggestionMsg As String
suggestions = ActiveProject.Tasks(2).StartDriver.Suggestions
suggestionMsg = CheckSuggestions(suggestions)
If Not suggestionMsg = "" Then MsgBox suggestionMsg
End Sub
Function CheckSuggestions(suggestions As Long) As String
Dim partial As Long
Dim suggestionResult As String
suggestionResult = ""
partial = suggestions Xor pjTaskWarningResourceBeyondMaxUnit
If partial < suggestions Then _
suggestionResult = suggestionResult & "The assignment is more than the maximum resource units available." & vbCrLf
partial = suggestions Xor pjTaskWarningResourceOverallocated
If partial < suggestions Then _
suggestionResult = suggestionResult & "The resource is overallocated." & vbCrLf
partial = suggestions Xor pjTaskWarningShadowFinishesEarlierDueToLink
If partial < suggestions Then _
suggestionResult = suggestionResult & "The shadow task finishes earlier because of a predecessor link." & vbCrLf
CheckSuggestions = suggestionResult
End Function
另请参阅
支持和反馈
有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。