尝试在子项目任务上使用 LINQ 时出现 MissingMemberException

MissingMemberException when trying to use LINQ on subproject Tasks

我正在 VB.NET 中开发 Microsoft Project 插件。每个项目都是 Project 类型,并且有自己的 Tasks 类型的任务列表,并且它们包含许多 Task 类型的任务。 Microsoft Project 有一个选项可以将其他项目文件作为子项目添加到其中。这些子项目的类型为 Subproject,但它们有一个 属性 SourceProject 类型为 Project。意思是,您应该能够通过 Project.Subprojects(0).SourceProject.Tasks.

访问每个子项目 Tasks,就好像它是常规 Project 类型一样

我尝试使用 LINQ 在 Project 上过滤掉一些任务。我发现 this 的回答非常有帮助,而且我成功地做到了,没有任何错误。在下面的代码中 ThisProject 是类型 Project:

Dim tasksWithResources = ThisProject.Tasks.Cast(Of MSProject.Task).Where(Function(x) x.ResourceNames <> "")

但是,当我在遍历子项目时尝试做完全相同的事情时,我得到 MemberMissingException:

For Each subproject In ThisProject.Subprojects
    Dim subprojectTasksWithResources = subproject.SourceProject.Tasks.Cast(Of MSProject.Task).Where(Function(x) x.ResourceNames <> "")
Next

我尝试通过简单地将它们分配给一个变量来访问子项目任务,认为该子项目中没有 Tasks。但它是成功的。因此,即使我这样写(我知道这与上面的代码块是一样的),我也会在我使用 Cast:

的行上得到 MemberMissingException
For Each subproject In ThisProject.Subprojects
    Dim tsks = subproject.SourceProject.Tasks
    Dim subprojectTasksWithResources = tsks.Cast(Of MSProject.Task).Where(Function(x) x.ResourceNames <> "")
Next

这是我收到的错误消息: Public member 'Cast' on type 'Tasks' not found.

编辑: 我知道一个简单的解决方法不是使用 LINQ,而是使用 For Each 遍历对象,但我很好奇为什么 LINQ 不起作用。

问题可能是子项目的任务尚未加载。

尝试通过访问任务强制加载项目。例如:

For Each s As MSProject.Subproject In ThisProject.Subprojects
    Dim tempTsk As MSProject.Task = s.Tasks(1)
    Dim subprojectTasksWithResources = s.SourceProject.Tasks.Cast(Of MSProject.Task).Where(Function(x) x.ResourceNames <> "")
Next

我在加载项中使用了以下代码来强制加载子项目。它运行良好,但我认为上面的代码可能就是您所需要的。

Friend Sub ShowAllTasks()
    ' expands all tasks to make sure all collapsed subprojects are loaded
    With ProjApp
        .SummaryTasksShow(True)
        .FilterApply("All Tasks")
        .SelectAll()
        .OutlineShowAllTasks()
        .SelectBeginning()
    End With
End Sub

注意:这假定当前视图是任务视图。

P.S。为您的子项目使用不同的变量名称,因为 subproject 是对象的名称。