使用 MS Project 2007 的 VBA 出现问题。我有一个Task
包含 2 个作业的任务,包括资源Foo
(2 天工作)和Bar
(5 天工作)。Task
设置为固定工作。现在,当手动向/从任务中添加或删除分配时,一切都按预期工作,没有什么特别的事情发生。使用 VBA 时,如下所示,其他作业的工作值会发生变化。
' Adding an Assignment with the "Baz" Resource and 10d of work
Sub AddAssignment()
Dim tskTask As Task
Dim rsResource As Resource
Dim asAssignment As Assignment
Set tskTask = ActiveProject.Tasks(1)
Set rsResource = ActiveProject.Resources("Baz")
Set asAssignment = tskTask.Assignments.Add(tskTask.ID, rsResource.ID)
asAssignment.Work = "10d"
End Sub
在执行脚本之前:
Task:
Foo 16h
Bar 40h
执行脚本后:
Task:
Foo 9,33h
Bar 23,33h
Baz 80h
那么,实际的问题是,为了保持其他作业的工作价值,我必须做些什么不同的事情?