为Project任务下的分配写入信息遇到了困惑

Hi~Hani-Ng，感谢您的回复：

关于您询问的问题：

• 我使用的Project版本是Microsoft® Project 2024MSO (版本 2408 Build 16.0.17932.20910) 64 位，语言是简体中文(中国大陆)，Professional版，本地mpp文件。
• Text1或Number1字段没有配置了公式（Formula）或图形指示器（Graphical Indicators）。
• 本来是想通过ass.Text1 = "A"，写入“资源使用情况”视图中，后来发现写入“任务分配情况”视图中了，因此执行代码没有报错误。

我做了些测试，结果如下：

1. 通过For Each ass As Assignment In task.Assignments定义的Assignment.Text1，指向任务下的资源分配，适用于“任务分配情况”视图；
2. 通过For Each ass As Assignment In Resource.Assignments定义的Assignment.Text1，指向资源下的任务分配，适用于“资源使用情况”视图；
3. 至于把ass.Delete()重新Add，因为有ResourceID，也是一种向资源下的任务分配写信息的方法。

经过这两天测试，以下代码可以使用：

再次感谢您的指导。

 Dim res As Resource = Nothing
 For Each a As Assignment In tsk.Assignments  '遍历已知任务下的分配
    If a.Resource.Group.Contains("A") Then    '如果所分配资源的资源组名包含"A"
       res = a.Resource                       '获取资源名称
       Exit For
    End If
 Next

If res IsNot Nothing Then
   For Each a As Assignment In res.Assignments  ' 遍历已知资源下的分配
        If a.TaskID = tsk.ID Then               ' 找到分配
           a.Text1 = tsk.Text1                  ' 将任务text1写给分配，在此实现了目标
           Exit For
        End If
   Next
End If

您好 阿信

感谢您的更新以及分享测试结果。

很高兴得知您已经找到原因并实现了预期目标。根据您的测试结果，关键区别在于 Assignment 对象是通过 task.Assignments 还是 resource.Assignments 获取的，因为它们对应的是不同的分配上下文及视图。

您通过先定位资源，再从 res.Assignments 集合中查找对应任务的分配记录并更新 Text1 字段的方法，成功实现了需求。感谢您分享解决方案和代码示例，这将对遇到类似情况的其他社区成员有所帮助。

您的理解和描述更为准确。

如果任务数量很多，For Each a As Assignment In res.Assignments工作量会很大，而任务下的分配数量有限，以下方法效率会更高，代码直观、容易理解。

        Dim ass As Assignment 
        Dim res As Resource = Nothing
        Dim work As Double
        For Each a As Assignment In tsk.Assignments
            If a.Resource.Group.Contains("A") Then
                res = a.Resource              '记录原分配资源
                work = a.Work                 '记录原分配工时
                a.Delete()                    '将分配删除，下面再Add
                Exit For
            End If
        Next

        If res IsNot Nothing Then
            ass = tsk.Assignments.Add(ResourceID:=res.ID)
            ass.work = work
            ass.Text1 = tsk.Text1    '经过测试，Add后写入 ass.Text1 ，可用于"资源使用情况"视图
        End If