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

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

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

我尝试使用 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。但它成功了。因此，即使我这样写（我知道这与上面的代码块相同），我也会在使用 MemberMissingException 的行上得到 Cast：

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

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

附言为您的子项目使用不同的变量名称，因为 subproject 是对象的名称。