通过

Task.LinkSuccessors 方法 (Project)

  • 项目

为任务添加一个或多个后续任务。

语法

expression。 LinkSuccessors( _Tasks_, _Link_, _Lag_ )

表达 一个代表 Task 对象的变量。

参数

名称 必需/可选 数据类型 说明
Tasks 必需 Object 指定的 任务 或 任务 对象将成为使用 表达式 指定该任务的后续任务。
Link 可选 Long 一个常数，用于指定所链接任务之间的关系。 可以是PjTaskLinkType常量之一。 默认值是 pjFinishToStart 。
Lag 可选 Variant 一个字符串，指定链接的任务之间延隔时间的工期。 若要指定任务间的前置重叠时间，请使用 Lag 的计算结果为负值的表达式。

返回值

无

示例

以下示例将创建两个任务，并将第二个任务作为后续任务链接到第一个任务。

Sub Link_Successors() 
    Dim SuccessorTask As Task 
    Dim PredecessorTask As Task 
 
    'Activate Task Sheet view 
    ViewApply Name:="Task Sheet" 
 
    ' Create a coupe of tasks 
    RowInsert 
    SetTaskField Field:="Name", Value:="TestTask-2" 
    SetTaskField Field:="Duration", Value:="1" 
 
    RowInsert 
    SetTaskField Field:="Name", Value:="TestTask-1" 
    SetTaskField Field:="Duration", Value:="2" 
 
    'link them 
    Set PredecessorTask = ActiveProject.Tasks("TestTask-1") 
    Set SuccessorTask = ActiveProject.Tasks("TestTask-2") 
 
    PredecessorTask.LinkSuccessors Tasks:=SuccessorTask, Link:=pjFinishToStart 
 
    'delete the tasks 
    PredecessorTask.Delete 
    SuccessorTask.Delete 
End Sub

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。