using System;
using System.Collections;
using System.ComponentModel;
using System.Data;
using System.Data.OleDb;
using System.Drawing;
using System.Web;
using System.Web.SessionState;
using System.Web.UI;
using System.Web.UI.WebControls;
using System.Web.UI.HtmlControls;
using System;
using System.Collections;
using System.ComponentModel;
using System.Data;
using System.Data.OleDb;
using System.Drawing;
using System.Web;
using System.Web.SessionState;
using System.Web.UI;
using System.Web.UI.WebControls;
using System.Web.UI.HtmlControls;
Private Sub TreeView1_SelectedIndexChange(ByVal sender As Object, ByVal e As
Microsoft.Web.UI.WebControls.TreeViewSelectEventArgs) Handles
TreeView1.SelectedIndexChange
Dim SelectNd As TreeNode
SelectNd = TreeView1.GetNodeFromIndex(TreeView1.SelectedNodeIndex)
If SelectNd.Nodes.Count <= 0 Then ‘加这个判断是为防止重复添加子节点
Dim ds As DataSet
ds = ... '为根据选择节点(SelectNd.ID等)的数据,检索数据库返回包括子
节点信息的数据集
Dim dv As New DataView()
Dim drv As DataRowView
dv.Table = ds.Tables(0)
Dim tmpNd As TreeNode
For Each drv In dv
tmpNd = New TreeNode()
tmpNd.ID = drv("ID")
tmpNd.Text = drv("Name")
tmpNd.NodeData = ...
tmpNd.NavigateUrl = ...
......
SelectNd.Nodes.Add(tmpNd)
SelectNd.Expanded = True
Next
End If
End Sub