空检查总是返回空，如果删除返回对象引用未设置为对象的实例

Question

我有一些代码通过 GetChildren 函数获取菜单的子项，该函数采用 menuData 列表：

Dim builtMenu As New List(Of MenuData)(_rawData.FindAll(Function(item) item.GroupingID = 0))

For Each menuData As MenuData In builtMenu
             If menuData.Children IsNot Nothing Then
            menuData.Children.AddRange(GetChildren(menuData))
             End If
        Next

如果我检查 menudata.children 是否不是什么，它总是什么都不是，因为 GetChildren 函数尚未运行（提供确实存在的子项）。如果我删除此检查并仅使用此代码：

Dim builtMenu As New List(Of MenuData)(_rawData.FindAll(Function(item) item.GroupingID = 0))

For Each menuData As MenuData In builtMenu  
            menuData.Children.AddRange(GetChildren(menuData)) 
        Next

然后我看到一个对象引用未设置为 menuData.Children.AddRange(GetChildren(menuData)) 上的对象错误的实例

请您告诉我如何解决这个问题？ 非常感谢

Answer 1

您的 menuData.Children 从未被实例化，因此它是一个空 (Nothing) 引用。

使用前需要先实例化：

Dim builtMenu As New List(Of MenuData)(_rawData.FindAll(Function(item) item.GroupingID = 0))
menuData.Children = New List(Of MenuData)

For Each menuData As MenuData In builtMenu  
    menuData.Children.AddRange(GetChildren(menuData)) 
Next