誰有從數據庫讀取數據到treeview無限子節點的代碼？100分即送!!

Question

我有，你看看把
private void Page_Load(object sender, System.EventArgs e)
{
Microsoft.Web.UI.WebControls.TreeNode  t1=new Microsoft.Web.UI.WebControls.TreeNode();
creat_node("DAS-manager",t1,"561");
}
/// <summary>
/// 生成TREEVIEW
/// </summary>
void  creat_node(string name,Microsoft.Web.UI.WebControls.TreeNode  t1,string  number)
{
//定义一个新的结点
Microsoft.Web.UI.WebControls.TreeNode  t2=new Microsoft.Web.UI.WebControls.TreeNode();
t2.ID=number;
t2.Text=name;
//TreeView1.ExpandedImageUrl="Image/ftp2.gif";
if(Convert.ToInt32(t2.ID)==561)  //根节点
{
t2.CheckBox = false;
//TreeView1.Nodes.Add(t2);
}
else
{   //判断是否为根结点
if(Convert.ToInt32(t2.ID) > 561 && Convert.ToInt32(t2.ID) < 600)
{
//t2.ImageUrl="Image/dir0.gif";
t2.CheckBox=true;
TreeView1.Nodes.Add(t2);
}
else
{
//t2.ImageUrl="Image/dir0.gif";
//t1.ImageUrl="Image/dir0.gif";
t2.CheckBox=true;
t1.Nodes.Add(t2);
}
}

//取得这个结点的所有子结点，利用递归自动生成
DataTable ldt_Current = BusinessFacade.bfTestFlat.C_Version.MemberTree(Convert.ToInt32(number));
for(int i=0;i<ldt_Current.Rows.Count;i++)
{
creat_node(ldt_Current.Rows[i]["Name"].ToString(),t2,ldt_Current.Rows[i]["ID"].ToString());
}
}

Answer 1

Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        '在此处放置初始化页的用户代码
        If Not IsPostBack Then
            SqlDataAdapter1.Fill(DataSet11, "menu_tree")
            intiTree(TreeView1.Nodes, 0)
        End If
    End Sub    Private Sub intiTree(ByRef Nds As Microsoft.Web.UI.WebControls.TreeNodeCollection, ByVal parentId As Integer)        Dim dv As New DataView
        dv.Table = DataSet11.Tables("menu_tree")
        dv.RowFilter = "menu_fatherid=" + CStr(parentId)
        If dv.Table.Rows.Count = 0 Then
            Exit Sub
        End If
        Dim drv As DataRowView
        Dim tmpNd As Microsoft.Web.UI.WebControls.TreeNode
        For Each drv In dv
            Dim strid As Integer
            tmpNd = New Microsoft.Web.UI.WebControls.TreeNode
            strid = drv("menu_ID")
            tmpNd.ID = strid
            tmpNd.Text = drv("menu_NAME")
            Nds.Add(tmpNd)
            intiTree(tmpNd.Nodes, strid)
        Next
    End Sub