通过

Task.WBSSuccessors Property

  • 项目
Project Developer Reference

Returns the WBS codes of the successors of the selected task, separated by the list separator. Read-only String.

Syntax

expression.WBSSuccessors

expression   A variable that represents a Task object.

Example
This example queries the user for a task ID and then provides a more user-friendly breakdown of its successors' WBS codes.

Visual Basic for Applications 
  Sub EnumerateSuccessors()
    Dim Task As Task
    Dim SuccTasks As Tasks
    Dim ID As Long
    Dim Successors As String
    Dim List As String
    Dim Count As Integer
    
    ID = CLng(InputBox$("Enter the ID number of the task you wish to examine:"))
    
    Set Task = ActiveProject.Tasks(ID)
    Set SuccTasks = Task.SuccessorTasks
    Successors = Task.WBSSuccessors
    Count = 1
    
    If SuccTasks.Count = 0 Then
        List = "Task " & Task.UniqueID & ", " & Task.Name & ", has no successors."
    Else
        List = "Successors to task " & Task.UniqueID & ", " & Task.Name & ":" & vbCrLf & vbCrLf
        Do While InStr(Successors, ListSeparator) <> 0
            List = List & SuccTasks(Count).Name & ": " & Mid$(Successors, 1, InStr(Successors, ListSeparator) - 1) & vbCrLf
            Successors = Right$(Successors, Len(Successors) - InStr(Successors, ListSeparator))
            Count = Count + 1
        Loop
        List = List & SuccTasks(Count).Name & ": " & Successors
    End If
    
    MsgBox List
    
    Set SuccTasks = Nothing
    Set Task = Nothing
End Sub

See Also