none
Me da error al intentar añadir a combobox sin que me repita RRS feed

  • Pregunta

  • Buenas estoy intentando cargar un combobox sin que me repita pero me lanza un error

    'AÑADE A COMBOBOX Y NO REPITE
            For N_CATEGORIA = 0 To Dgv_Tabla_Estilos.RowCount
                Dim Nombre_CATEGORIA As String = Dgv_Tabla_Estilos.Rows(N_CATEGORIA).Cells(2).Value
    
                '
                If Not Dgv_Tabla_Estilos.Rows(N_CATEGORIA).Cells(5).Value.Contains(Nombre_CATEGORIA) Then
                    Editor_de_Estilo.ComboBox1.Items.Add(Dgv_Tabla_Estilos.Rows(Nombre_CATEGORIA).Cells(2).Value)
    
    
                End If
            Next
            'AÑADE A COMBOBOX Y NO REPITE

    lunes, 23 de mayo de 2016 19:22

Respuestas

  • Hola JETET,

    Prueba haciendo estos cambios :

         For N_CATEGORIA = 0 To Dgv_Tabla_Estilos.RowCount - 1
                Dim Nombre_CATEGORIA As String = Dgv_Tabla_Estilos.Rows(N_CATEGORIA).Cells(2).Value
    
                If Not Dgv_Tabla_Estilos.Rows(N_CATEGORIA).Cells(5).Value.Contains(Nombre_CATEGORIA) Then
                    Editor_de_Estilo.ComboBox1.Items.Add(Dgv_Tabla_Estilos.Rows(N_CATEGORIA).Cells(2).Value)
                End If
            Next

    Le estabas poniendo el Nombre_CATEGORIA al Rows, pero este recibe el índice.

    Saludos.


    JC NaupaCrispín
    Lima - Perú

    La magia no existe, la programación SI

    • Propuesto como respuesta Asier Villanueva lunes, 23 de mayo de 2016 19:49
    • Marcado como respuesta JETET martes, 24 de mayo de 2016 14:57
    lunes, 23 de mayo de 2016 19:39
  • Por lo que veo el error sólo puede deberse a dos cosas:

    o bien estás intentando acceder a una celda que no existe: el DataGridView tiene menos de 6 columnas

    o el valor de la celda es Nothing, si es este el caso:

    Dim value As String = Dgv_Tabla_Estilos.Rows(N_CATEGORIA).Cells(5).Value
    If value Is Nothing OrElese Not value.Contains(Nombre_CATEGORIA) Then
        Editor_de_Estilo.ComboBox1.Items.Add(Nombre_CATEGORIA)
    End If
    


    Píldoras .NET
    Artículos, tutoriales y ejemplos de código .NET

    Píldoras JS
    Artículos, tutoriales y ejemplos de código JavaScript, HTML5, CSS3, ...

    • Marcado como respuesta JETET martes, 24 de mayo de 2016 14:13
    martes, 24 de mayo de 2016 7:20

Todas las respuestas

  • Hola JETET,

    Prueba haciendo estos cambios :

         For N_CATEGORIA = 0 To Dgv_Tabla_Estilos.RowCount - 1
                Dim Nombre_CATEGORIA As String = Dgv_Tabla_Estilos.Rows(N_CATEGORIA).Cells(2).Value
    
                If Not Dgv_Tabla_Estilos.Rows(N_CATEGORIA).Cells(5).Value.Contains(Nombre_CATEGORIA) Then
                    Editor_de_Estilo.ComboBox1.Items.Add(Dgv_Tabla_Estilos.Rows(N_CATEGORIA).Cells(2).Value)
                End If
            Next

    Le estabas poniendo el Nombre_CATEGORIA al Rows, pero este recibe el índice.

    Saludos.


    JC NaupaCrispín
    Lima - Perú

    La magia no existe, la programación SI

    • Propuesto como respuesta Asier Villanueva lunes, 23 de mayo de 2016 19:49
    • Marcado como respuesta JETET martes, 24 de mayo de 2016 14:57
    lunes, 23 de mayo de 2016 19:39
  • me lanza este error ahora

    martes, 24 de mayo de 2016 6:10
  • Por lo que veo el error sólo puede deberse a dos cosas:

    o bien estás intentando acceder a una celda que no existe: el DataGridView tiene menos de 6 columnas

    o el valor de la celda es Nothing, si es este el caso:

    Dim value As String = Dgv_Tabla_Estilos.Rows(N_CATEGORIA).Cells(5).Value
    If value Is Nothing OrElese Not value.Contains(Nombre_CATEGORIA) Then
        Editor_de_Estilo.ComboBox1.Items.Add(Nombre_CATEGORIA)
    End If
    


    Píldoras .NET
    Artículos, tutoriales y ejemplos de código .NET

    Píldoras JS
    Artículos, tutoriales y ejemplos de código JavaScript, HTML5, CSS3, ...

    • Marcado como respuesta JETET martes, 24 de mayo de 2016 14:13
    martes, 24 de mayo de 2016 7:20
  • gracias 
    martes, 24 de mayo de 2016 14:13