То, что представляется информацией о задачах, отображаемой в представлении «Использование ресурсов», фактически является информацией о назначении .
Показанное поле Text2 является одним из назначений . Чтобы еще больше усложнить ситуацию, на уровне назначения есть два набора «пользовательских» полей - одно для задач и одно для ресурсов.
Используя макрос, вы можете скопировать данные уровня задачи в данные уровня назначения.
Sub UpdateAssignmentInfo() Dim asn As Assignment ' transfer data to show in the Resource Usage view Dim res As Resource For Each res In ActiveProject.Resources For Each asn In res.Assignments asn.Text2 = asn.Task.Text2 Next asn Next res ' transfer data to show in the Task Usage view Dim tsk As Task For Each tsk In ActiveProject.Tasks For Each asn In tsk.Assignments ' use only ONE of the following: ' to show the task's value use asn.Text2 = tsk.Text2 ' to show the resource's value use asn.Text2 = asn.Resource.Text2 Next asn Next tsk End Sub
Первый цикл в этом коде копирует данные задачи на уровне полей в ресурсах уступке (например поля, которые вы видите в окне Использование ресурсов).
Второй цикл копирует данные в полях задач выполнения задания (например поля, показанные в представлении Использование задач). В зависимости от необходимости выберите одну из asn.Text2 = ...
строк и удалите / закомментируйте другую. Первый из них будет дублировать информацию о задаче, а второй будет отображать данные Text2 из самого ресурса (например, из представления Resource Sheet).