none
Me indica un error al ejecutar RRS feed

  • Pregunta

  • index was out of range. Must be non-negative and less than the size of the collection.
    Parameter name:index

    me muestra este error al dar clic en un campo donde me tendria que hacer esto

        Dim estado As String
        Private Sub datalistado_CellDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles datalistado.CellDoubleClick
            Try
                txtpassword.Enabled = True
                txtidusuario.Text = datalistado.SelectedCells.Item(1).Value
                txtnombre.Text = datalistado.SelectedCells.Item(2).Value
                txtlogin.Text = datalistado.SelectedCells.Item(3).Value
                txtcorreo.Text = datalistado.SelectedCells.Item(7).Value
                txtrol.Text = datalistado.SelectedCells.Item(8).Value
                estado = datalistado.SelectedCells.Item(9).Value

                If estado = "ELIMINADO" Then
                    'restaurar_usuarios()
                Else
                    If txtlogin.Text = "admin" Then
                        txtlogin.Enabled = False
                        txtrol.Enabled = False
                    Else
                        txtlogin.Enabled = True
                        txtrol.Enabled = True
                    End If

                    Me.txtpassword.Text = Desencriptar(datalistado.SelectedCells.Item(4).Value.Trim)
                    ICONO.BackgroundImage = Nothing
                    Dim b() As Byte = datalistado.SelectedCells.Item(5).Value
                    Dim ms As New IO.MemoryStream(b)
                    ICONO.Image = Image.FromStream(ms)
                    ICONO.SizeMode = PictureBoxSizeMode.Zoom

                    lblAnuncioIcono.Visible = False
                    Guardar.Visible = False
                    GuardarCambios.Visible = True
                    Panel4.Visible = True
                    Cargar_estado_de_iconos()



                End If

            Catch ex As Exception
                MsgBox(ex.Message)

            End Try
        End Sub

      Sub Cargar_estado_de_iconos()
            l1.Visible = False

            l2.Visible = False

            l3.Visible = False

            l4.Visible = False

            l5.Visible = False

            l6.Visible = False

            l7.Visible = False

            l8.Visible = False

            P1.Enabled = True

            P2.Enabled = True

            P3.Enabled = True

            P4.Enabled = True

            P5.Enabled = True

            P6.Enabled = True

            P7.Enabled = True

            P8.Enabled = True

            Try

                For Each row As DataGridViewRow In datalistado.Rows

                    Try
                        Dim Icono As String = Convert.ToString(row.Cells("Nombre_de_icono").Value)
                        If Icono = "1" Then
                            l1.Visible = True
                        ElseIf Icono = "2" Then
                            l2.Visible = True
                        ElseIf Icono = "3" Then
                            l3.Visible = True
                        ElseIf Icono = "4" Then
                            l4.Visible = True
                        ElseIf Icono = "5" Then
                            l5.Visible = True
                        ElseIf Icono = "6" Then
                            l6.Visible = True
                        ElseIf Icono = "7" Then
                            l7.Visible = True
                        ElseIf Icono = "8" Then
                            l8.Visible = True
                        End If

                        If Icono = "1" Then
                            P1.Enabled = False
                        ElseIf Icono = "2" Then
                            P2.Enabled = False
                        ElseIf Icono = "3" Then
                            P3.Enabled = False
                        ElseIf Icono = "4" Then
                            P4.Enabled = False
                        ElseIf Icono = "5" Then
                            P5.Enabled = False
                        ElseIf Icono = "6" Then
                            P6.Enabled = False
                        ElseIf Icono = "7" Then
                            P7.Enabled = False
                        ElseIf Icono = "8" Then
                            P8.Enabled = False
                        End If
                    Catch ex As Exception

                    End Try

                Next
            Catch ex As Exception

            End Try


        End Sub

    sábado, 30 de noviembre de 2019 0:21

Todas las respuestas

  • Hola José, para verificar donde te da exactamente el error coloca en dialogo el Try Catch o sea entre " ' " y de esta forma te marcará exactamente en que línea te da, supongo que es un tema de indice, en tu ejempolo tienes decralrado "datalistado.SelectedCells.Item(9).Value" Con lo cual indicas que al menos tienes 10 columnas, o sea tu primer columna (Column1) será "datalistado.SelectedCells.Item(0).Value" y tu Column10 será "datalistado.SelectedCells.Item(9).Value"

    Saludos


    ARA San Juan 44 HEROES     ‗‗‗‗­|||||‗‗‗‗‗

    sábado, 30 de noviembre de 2019 5:29