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