Hola que tal. Estoy en ASP .NET VB - ESTA ES LA SECCIÓN DE VB
Tengo un problema con con un submenú, necesito que se muestre, pero a pesar de que tengo correcto en la programación no lo hace.
¿Podrían darme sugerencias de que hacer o como hacer que se vean?
Gracias de antemano, saludos.
'EXTRACCIÓN DE DATOS - MÓDULO VALORACIÓN
Function ConexionBDMenuModuloValoracion(ByVal StringMayus As String) As Object
Dim palabras As String = "'historia', 'LEER'"
Dim sqlConn As New _
SqlConnection("BlueSetsTrackedBD")
' MENÙ
Dim nodoPadre As New SqlDataAdapter("SELECT DISTINCT [SECCIONES] FROM [dbo].[Módulo Valoración] WHERE[palabra clave] IN(" & palabras & ")", sqlConn)
Dim nodoHijo1 As New SqlDataAdapter("SELECT DISTINCT [SECCIONES],[CAMPO], CONCAT(SECCIONES,'-',CAMPO) AS COMP1 FROM [dbo].[Módulo Valoración] WHERE[palabra clave] IN(" & palabras & ")", sqlConn)
Dim nodoHijo2 As New SqlDataAdapter("SELECT DISTINCT [CLASE], CONCAT(SECCIONES,'-',CAMPO) AS COMP2, CONCAT(SECCIONES,'-',CAMPO,'-', CLASE) AS COMP3 " & _
"FROM [dbo].[Módulo Valoración] WHERE [palabra clave] IN(" & palabras & ")", sqlConn)
Dim nodoHijo3 As New SqlDataAdapter("SELECT DISTINCT ISNULL([TIPO],'OTROS') AS TIPO, CONCAT(SECCIONES,'-',CAMPO,'-', CLASE) AS COMP4, " & _
"CONCAT(SECCIONES,'-',CAMPO,'-',CLASE,'-',TIPO) AS COMP5 FROM [dbo].[Módulo Valoración] WHERE [palabra clave] IN(" & palabras & ")", sqlConn)
Dim nodoHijo4 As New SqlDataAdapter("SELECT DISTINCT ISNULL([ÍNDOLE],'OTROS') AS INDOLE, ISNULL([TIPO],'OTROS') AS TIPO , CONCAT(SECCIONES,'-',CAMPO,'-',CLASE,'-',TIPO) AS COMP6 " & _
"FROM [dbo].[Módulo Valoración] WHERE [palabra clave] IN(" & palabras & ")", sqlConn)
Dim dst As New System.Data.DataSet()
nodoPadre.Fill(dst, "Padre")
nodoHijo1.Fill(dst, "Hijo1")
nodoHijo2.Fill(dst, "Hijo2")
nodoHijo3.Fill(dst, "Hijo3")
nodoHijo4.Fill(dst, "Hijo4")
dst.Relations.Add("Children1", _
dst.Tables("Padre").Columns("SECCIONES"), _
dst.Tables("Hijo1").Columns("SECCIONES"))
dst.Relations.Add("Children2", _
dst.Tables("Hijo1").Columns("COMP1"), _
dst.Tables("Hijo2").Columns("COMP2"))
dst.Relations.Add("Children3", _
dst.Tables("Hijo2").Columns("COMP3"), _
dst.Tables("Hijo3").Columns("COMP4"))
dst.Relations.Add("Children4", _
dst.Tables("Hijo3").Columns("COMP5"), _
dst.Tables("Hijo4").Columns("COMP6"))
Return dst
End Function
'Función mostrar menú MÓDULO VALORACIÓN
Function MostrarMenuModuloValoracion(ByVal StringMayus As String) As Object
Dim dst As DataSet = ConexionBDMenuModuloValoracion(StringMayus)
'PADRE
For Each masterRow As DataRow In _
dst.Tables("Padre").Rows
Dim masterItem As New _
MenuItem(masterRow("SECCIONES").ToString)
Menu2.Items.Add(masterItem)
'HIJO 1
For Each childRow As DataRow In _
masterRow.GetChildRows("Children1")
Dim childItem1 As New _
MenuItem(childRow("CAMPO").ToString)
masterItem.ChildItems.Add(childItem1)
'HIJO 2
For Each childRow1 As DataRow In _
childRow.GetChildRows("Children2")
Dim childItem2 As New _
MenuItem(childRow1("CLASE").ToString)
childItem1.ChildItems.Add(childItem2)
'HIJO 3
For Each childRow2 As DataRow In _
childRow1.GetChildRows("Children3")
Dim childItem3 As New _
MenuItem(childRow2("TIPO").ToString)
childItem2.ChildItems.Add(childItem3)
'HIJO 4
For Each childRow3 As DataRow In _
childRow2.GetChildRows("Children4")
Dim childItem4 As New _
MenuItem(childRow3("INDOLE").ToString)
childItem3.ChildItems.Add(childItem4)
Next
Next
Next
Next
Next
Return 0
End Function
