放上treeview,后台代码
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