Load a TreeView control from an XML file in VB .NEThttp://www.vb-helper.com/HowTo/howto_net_treeview_load_xml.ziphttp://www.topxml.com/dotnet/xml_data_treeview.asp
我做的一个 小例子 看看 希望对你有帮助 Dim mynodes As TreeNodeCollection Dim i As Integer = 0, j As Integer = 0, k As Integer = 0, l As Integer = 0 Dim gs, ks, gr As String Me.mekstring = "SELECT 公司, 科室,姓名 FROM 用户表 order by 公司,科室,姓名" Me.meSqlCMD = New SqlCommand(mekstring, Me.meSqlConn) meSqlConn.Open() Me.meSqlDRD = meSqlCMD.ExecuteReader While meSqlDRD.Read If meSqlDRD.GetString(0) <> gs Then j = 0 l = 0 gs = meSqlDRD.GetString(0) ks = meSqlDRD.GetString(1) gr = meSqlDRD.GetString(2) With TreeView1 .Nodes.Add(meSqlDRD.GetString(0)) .SelectedNode = .Nodes(i) i = i + 1 .SelectedNode.Nodes.Add(meSqlDRD.GetString(1)) .SelectedNode = .SelectedNode.Nodes(j) j = j + 1 .SelectedNode.Nodes.Add(meSqlDRD.GetString(2)) .SelectedNode = .SelectedNode.Nodes(l) l = l + 1 End With Else If meSqlDRD.GetString(1) <> ks Then l = 0 ks = meSqlDRD.GetString(1) gr = meSqlDRD.GetString(2) With TreeView1 .SelectedNode.Parent.Parent.Nodes.Add(meSqlDRD.GetString(1)) .SelectedNode = .SelectedNode.Parent.Parent.Nodes(j) j = j + 1 .SelectedNode.Nodes.Add(meSqlDRD.GetString(2)) .SelectedNode = .SelectedNode.Nodes(k) l = l + 1 End With Else If meSqlDRD.GetString(2) <> gr Then gr = meSqlDRD.GetString(1) With TreeView1 .SelectedNode.Parent.Nodes.Add(meSqlDRD.GetString(2)) .SelectedNode = .SelectedNode.Parent.Nodes(l) l = l + 1 End With Else End If End If End If End While Me.meSqlDRD.Close() Me.meSqlConn.Close()
Dim mynodes As TreeNodeCollection
Dim i As Integer = 0, j As Integer = 0, k As Integer = 0, l As Integer = 0
Dim gs, ks, gr As String Me.mekstring = "SELECT 公司, 科室,姓名 FROM 用户表 order by 公司,科室,姓名"
Me.meSqlCMD = New SqlCommand(mekstring, Me.meSqlConn)
meSqlConn.Open()
Me.meSqlDRD = meSqlCMD.ExecuteReader
While meSqlDRD.Read If meSqlDRD.GetString(0) <> gs Then
j = 0
l = 0 gs = meSqlDRD.GetString(0)
ks = meSqlDRD.GetString(1)
gr = meSqlDRD.GetString(2)
With TreeView1
.Nodes.Add(meSqlDRD.GetString(0))
.SelectedNode = .Nodes(i) i = i + 1 .SelectedNode.Nodes.Add(meSqlDRD.GetString(1))
.SelectedNode = .SelectedNode.Nodes(j)
j = j + 1
.SelectedNode.Nodes.Add(meSqlDRD.GetString(2))
.SelectedNode = .SelectedNode.Nodes(l)
l = l + 1 End With Else If meSqlDRD.GetString(1) <> ks Then
l = 0 ks = meSqlDRD.GetString(1)
gr = meSqlDRD.GetString(2) With TreeView1
.SelectedNode.Parent.Parent.Nodes.Add(meSqlDRD.GetString(1))
.SelectedNode = .SelectedNode.Parent.Parent.Nodes(j)
j = j + 1
.SelectedNode.Nodes.Add(meSqlDRD.GetString(2))
.SelectedNode = .SelectedNode.Nodes(k)
l = l + 1
End With Else If meSqlDRD.GetString(2) <> gr Then
gr = meSqlDRD.GetString(1)
With TreeView1
.SelectedNode.Parent.Nodes.Add(meSqlDRD.GetString(2))
.SelectedNode = .SelectedNode.Parent.Nodes(l)
l = l + 1 End With Else End If End If
End If End While
Me.meSqlDRD.Close()
Me.meSqlConn.Close()