主题：for each 未将对象引用设置到对象的实例，已解决！

 如果有新增的节点，它们是不会有datarow属性值的。

For Each nd As WinForm.TreeNode In trv.AllNodes
    If nd.Name > "全部编码" Then
        If nd.DataRow isnot nothing andalso nd.DataRow("上级组") = True Then
            txt = nd.DataRow("编码") & " " & nd.DataRow("编码名称")
            nd.text = txt          
        End If      
    End If
Next