我想用treeview做一个动态目录，与数据库一起用，怎么做？


你在该论坛中搜索一下treeview,你会很快找到答案的！

解决方案 »

  1.   

    http://expert.csdn.net/Expert/topic/1525/1525202.xml?temp=.7069361
      

  2.   

    http://expert.csdn.net/Expert/topic/1525/1525202.xml?temp=.5312921
      

  3.   

    给你个参考：<%@ Register TagPrefix="iewc" Namespace="Microsoft.Web.UI.WebControls" Assembly="Microsoft.Web.UI.WebControls, Version=1.0.2.226, Culture=neutral, PublicKeyToken=31bf3856ad364e35" %>
    <%@import namespace="system.data.oledb"%>
    <%@import namespace="system.data"%>
    <%@ Page Language="vb" debug="true" %>
    <script runat=server>
    sub page_load(sender as object,e as eventargs)
    dim NodeText as string="-1"
    dim ds as dataset=new dataset
    dim conn as oledbconnection
    conn=new oledbconnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source="&server.mappath("dATABASE\MYTREE.mdb"))
    dim mycommand as oledbDataAdapter
    mycommand=new oledbDataAdapter("select * from tree where TreeNode='"+NodeText+"' order by NodeNumber asc",conn)
    conn.open()
    mycommand.fill(ds)
    dim i as integer
    '===根结点数
    for i=0 to ds.tables(0).rows.count-1
    dim myTreeNode as new TreeNode()
    myTreeNode.Text=ds.tables(0).rows(i).item(1)
    myTreeNode.ImageUrl="images/closedfolder.gif"
    myTreeNode.ExpandedImageUrl="images/openfolder.gif"
    TreeView1.Nodes.Add(myTreeNode)

        CreateChildTree(myTreeNode,ds.tables(0).rows(i).item(0),ds.tables(0).rows(i).item(1))
    next
    end subsub CreateChildTree(ParentNode as TreeNode,NodeId as String,ParentNodeText as string)
    dim ds as dataset=new dataset()
    dim conn as oledbconnection
    conn=new oledbconnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source="&server.mappath("database\mytree.mdb"))
    dim mycommand as oledbDataAdapter
    mycommand=new oledbDataAdapter("select * from tree where TreeNode='"+NodeId+"' order by NodeNumber desc",conn)
    conn.open()
    mycommand.fill(ds)
    dim i as integer
    for i=0 to ds.tables(0).rows.count-1
    dim myTreeNode as new TreeNode()
    myTreeNode.Text=ds.tables(0).rows(i).item(1)
    myTreeNode.ImageUrl="images/book.gif"
    dim myTreeNodeText as string=myTreeNode.Text
    dim ParentNodeTextS as string=ParentNodeText
    myTreeNodeText=server.urlencode(myTreeNodeText)
    ParentNodeTextS=server.urlencode(ParentNodeTextS)
    'myTreeNode.navigateurl="TarGet_Url.aspx?NodeText="+myTreeNode.Text+"&ParentNodeText="+ParentNodeText
    myTreeNode.navigateurl="TarGet_Url.aspx?NodeText="+myTreeNodeText+"&ParentNodeText="+ParentNodeTexts
    myTreeNode.Target="mainFrame"
    ParentNode.Nodes.Add(myTreeNode)
    next
    end sub
    </script>
    <html>
      <head>
        <title></title>
      </head>
     
      <body MS_POSITIONING="GridLayout" bgcolor=#94CBFF>
    <form id="Form1" method="post" runat="server">
    <iewc:TreeView id="TreeView1"  runat="server" selectexpands=true AutoSelect="True"></iewc:TreeView>
    </form>
    </body>
    </html>
    -------努力学习 不断实践 虚心讨教--------