对于DataTable，您可以尝试下面的方法。如果找不到父节点，则添加它。“Find”函数返回节点数组，但在本例中，它假定始终找不到节点或只找到一个节点：

Private Sub AddNode(parentNode As String, nodeText As String)
  Dim node As New List(Of TreeNode)
  node.AddRange(TreeView1.Nodes.Find(parentNode, True))
  If Not node.Any Then
    node.Add(TreeView1.Nodes.Add(parentNode, parentNode))
  End If
  node(0).Nodes.Add(nodeText, nodeText)
End Sub

您可以通过枚举DataTable中的所有行来使用它：

For Each dr As DataRow In dt.Rows
  AddNode(dr("ParentNode").ToString, dr("NodeName").ToString)
Next
TreeView1.ExpandAll()