要下载 iewebcontrols,那里面有web用的treeview

解决方案 »

  1.   

    下载地址:
    http://msdn.microsoft.com/downloads/samples/internet/ASP_DOT_NET_ServerControls/WebControls/default.asp安装方法:(也可参照Readme.txt)
    1.bulid.将bulid.bat的路径指向csc.exe所在路径,生成Microsoft.Web.UI.WebControls.dll。
    2.在wwwroot下创建空目录webctrl_client\1_0。
    3.将build\Runtime下的文件拷至webctrl_client\1_0下。
    4.选择工具箱的自定义工具箱,添加Microsoft.Web.UI.WebControls.dll
    使用方法:
     Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
            '在此处放置初始化页的用户代码        Call intiTree(TreeView1.Nodes, 0)
        End Sub
           Private Sub intiTree(ByRef Nds As Microsoft.Web.UI.WebControls.TreeNodeCollection, ByVal parentId As Integer)
            Dim connectstring As String
            connectstring = "data source=.;initial catalog=telrc;uid=sa;pwd=67890;"
            Dim myConn As New SqlConnection(connectstring)
            Dim myDataAdapter As New SqlDataAdapter("select * from treetable", myConn)
            Dim ds As New DataSet()
            myDataAdapter.Fill(ds, "tree")
            Dim drv As DataRowView
            Dim tmpNd As Microsoft.Web.UI.WebControls.TreeNode
            Dim intId As Integer
            Dim dv As New DataView()
            dv.Table = ds.Tables("tree")
            dv.RowFilter = "PARENTID='" & parentId & "'"
            For Each drv In dv
                tmpNd = New Microsoft.Web.UI.WebControls.TreeNode()
                intId = drv("NODEID")
                tmpNd.ID = intId
                tmpNd.Text = drv("NODENAME")
                tmpNd.ImageUrl = drv("ICON").ToString
                Nds.Add(tmpNd)
                intiTree(Nds(Nds.Count - 1).Nodes, intId)
            Next
        End Sub