网上找了一堆代码
但是写下来没有一个可用
有没有哪位兄弟给一个代码啊。

解决方案 »

  1.   

    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
      

  2.   

    我做的一个 小例子 看看 希望对你有帮助
     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()
      

  3.   

    楼主应该好好读读MSDN,我急的时候,就到处找代码,结果是浪费时间,最后还要静下心来读MSDN,
      

  4.   

    http://www.google.com/url?sa=U&start=15&q=http://www.15seconds.com/issue/030827.htm&e=10001
      

  5.   

    这个也太简单了吧你用递归算法一个一个亡树节点上绑定呗,事先把数据读到DataTable 中,这样效率高