Dim i, ParentNode, NodeId As Integer
Dim myConnection As New OracleConnection(ConfigurationSettings.AppSettings("ConnectionString"))
myConnection.open()
Dim Sql As String = "select DEPTID,DEPTNAME,LastDeptID FROM DEPTINFO ORDER BY deptID"
Dim Cmd As New Oraclecommand(Sql, myConnection)
Dim DataR As OracleDataReader = Cmd.ExecuteReader
Dim menuNodes(3500) As TreeNode
For i = 0 To menuNodes.Length - 1
menuNodes(i) = New TreeNode
Next
Do While DataR.Read
ParentNode = DataR("LastDeptID")
NodeId = DataR("deptID")
menuNodes(NodeId).Text = DataR("DEPTNAME")
menuNodes(NodeId).NavigateUrl = "UserInfo.aspx?ClassID=" & NodeId
menuNodes(NodeId).Target = "_top"
If ParentNode <> 0 Then
menuNodes(ParentNode).ChildNodes.Add(menuNodes(NodeId))
Else
TreeView1.Nodes.Add(menuNodes(NodeId))
End If
Loop
DataR.Close()
MyConnection.Close()
myConnection.Dispose()