Sub PopulateMenuLevel2(ByVal node As TreeNode) Dim sqlQuery As New OracleCommand SQLText.Text = sqlQuery.ToString() SQLText.Text = sqlQuery.CommandText.ToString() sqlQuery.CommandText = "SELECT MENU_DESC_2, MENU_NO_2, FORM_NAME FROM MENU_LEVEL_2 " & " Where MENU_NO_0 = :menuno0 AND MENU_NO_1 = :menuno1" sqlQuery.Parameters.Add(New OracleParameter("menuno1", node.Value)) sqlQuery.Parameters.Add(New OracleParameter("menuno0", node.Parent.Value)) Dim ResultSet As DataSet = RunQuery(sqlQuery) If ResultSet.Tables.Count > 0 Then Dim row As DataRow For Each row In ResultSet.Tables(0).Rows Dim NewNode As TreeNode = New TreeNode(row("MENU_DESC_2").ToString(), row("FORM_NAME").ToString()) NewNode.NavigateUrl = "PDFViewer.aspx?PDFNAME =" & row("FORM_NAME").ToString() NewNode.Expanded = True NewNode.PopulateOnDemand = True NewNode.SelectAction = TreeNodeSelectAction.SelectExpand node.ChildNodes.Add(NewNode) Next End If End Sub
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)