通过

TaskDependencies 对象 (Project)

  • 项目

包含 TaskDependency 对象的集合。

示例

使用 TaskDependency 对象

使用 TaskDependencies (index) （其中 index 是依赖项索引）返回单个 TaskDependency 对象。 下面的示例为指定的任务，并在其第一个任务相关性中指定的前置任务之间的链接添加 1.5 个工作日的延隔时间。

ActiveProject.Tasks("Draft Initial Business Case").TaskDependencies(1).Lag = "1.5d"

使用 TaskDependencies 集合

使用 TaskDependencies 属性返回一个 TaskDependencies 集合。 下面的示例检查指定任务的每个前置任务，并为每个具有"高"或更高的优先级显示一条消息。

Dim TaskDep As TaskDependency 

 

For Each TaskDep In ActiveProject.Tasks("Write Requirements Brief").TaskDependencies 

 If TaskDep.From.Priority > 500 Then 

 MsgBox "Task #" & TaskDep.From.ID & " (" & TaskDep.From.Name & ") " & _ 

 "has a priority higher than medium." 

 End If 

Next TaskDep

Use the Add method to add a TaskDependency object to the TaskDependencies collection. 以下示例将“前期研究与正式批准”作为前置任务与“草拟初始商务方案”链接起来，使它们具有“完成-开始”关系。

ActiveProject.Tasks("Draft Initial Business Case").TaskDependencies.Add ActiveProject.Tasks("Preliminary Research & Approval"), pjFinishToStart

方法

名称
Add

属性

名称
Application
Count
项目
Parent

另请参阅

项目对象模型

支持和反馈

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