Dim Nodetable As New DataTable
Dim Tree As New TreeNodeDot
Dim Codi As String = "0/"
Nodetable = Tree.SelectTcodebyCpark(Codi)
Dim i As Int32
For i = 0 To Nodetable.Rows.Count - 1 'Me.TreeView1.Nodes.Count()
Dim rootnode As New Microsoft.Web.UI.WebControls.TreeNode
rootnode.ID = Nodetable.Rows(i).Item("id")
rootnode.Text = Nodetable.Rows(i).Item("Cname").ToString
'rootnode.SelectedImageUrl = "Image/24.gif"
'rootnode.NavigateUrl = "Image/25.gif" '连接到相应的地址
rootnode.NodeData = Nodetable.Rows(i).Item("Ccurk").ToString
Dim NavUrl1 As String = "TSupply.aspx?Ntype=" & rootnode.NodeData
rootnode.NavigateUrl = NavUrl1
rootnode.Target = "MainInterface"
Me.TreeView1.Nodes.Add(rootnode)
'Me.TreeView1.Nodes.Add(rootnode)
Me.CreateChildNode(rootnode, rootnode.NodeData)
Next
End Function
'CreateChildNode
Private Function CreateChildNode(ByVal parentnode As Microsoft.Web.UI.WebControls.TreeNode, ByVal parkey As String)
Dim Nodetable As New DataTable
Dim Tree As New TreeNodeDot
Nodetable = Tree.SelectTcodebyCpark(parkey)
Dim i As Int32
For i = 0 To Nodetable.Rows.Count - 1 'Me.TreeView1.Nodes.Count()
Dim rootnode As New Microsoft.Web.UI.WebControls.TreeNode
rootnode.ID = Nodetable.Rows(i).Item("id")
rootnode.Text = Nodetable.Rows(i).Item("Cname").ToString
'rootnode.SelectedImageUrl = ""
'rootnode.NavigateUrl = "" '连接到相应的地址
rootnode.NodeData = Nodetable.Rows(i).Item("Ccurk").ToString
Dim NavUrl As String = "TSupply.aspx?Ntype=" & rootnode.NodeData
rootnode.NavigateUrl = NavUrl
rootnode.Target = "MainInterface"
parentnode.Nodes.Add(rootnode)
'Me.TreeView1.Nodes.Add(rootnode)
CreateChildNode(rootnode, rootnode.NodeData)
Next