none
Problemas con submenús RRS feed

  • Pregunta

  • 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


    jueves, 9 de julio de 2015 13:37