AYUDA: ListView

[rishart]

Hola amigos como andan, espero que hayan tenido un buen dia, disculpen las molestias pero tengo un problema con el siguiente codigo:

resulta que estoy programando en vb 2008 y el siguiente codigo no me funciona, no se bien a que se deba, me podrian ayudar, aqui les muestro el codigo:

Código:

 With ListView1

         For i = .Items.Count To 0 Step -1

'UPGRADE_WARNING: El límite inferior de la colección ListView1.ListItems cambió de 1 a 0'
                    If .Items.Item(i).Checked = True Then

                        vclave = Trim(.Items.Item(i).Text)

                        rst = dbs.OpenRecordset("select * from clientes where clave like '" & vclave & "'")

                        If rst.RecordCount >= 1 Then
dbs.Execute("DELETE * FROM clientes WHERE clave= '" & vclave & "'")

                        End If
                    End If
               Next i
            End With

bueno el caso es que me marca el siguiente error:

"InvalidArgument=El Valor de '16' no es valido para 'index'". nombre del parametro: index


me podrian ayudar o darme una referencia de como le puedo hacer, se los agradezco de antemano la atencion prestada y les envio un cordial saludo.

[Avellaneda]

Iniciado por rishart

Hola amigos como andan, espero que hayan tenido un buen dia, disculpen las molestias pero tengo un problema con el siguiente codigo:

resulta que estoy programando en vb 2008 y el siguiente codigo no me funciona, no se bien a que se deba, me podrian ayudar, aqui les muestro el codigo:

Código:

 With ListView1

         For i = .Items.Count To 0 Step -1

'UPGRADE_WARNING: El límite inferior de la colección ListView1.ListItems cambió de 1 a 0'
                    If .Items.Item(i).Checked = True Then

                        vclave = Trim(.Items.Item(i).Text)

                        rst = dbs.OpenRecordset("select * from clientes where clave like '" & vclave & "'")

                        If rst.RecordCount >= 1 Then
dbs.Execute("DELETE * FROM clientes WHERE clave= '" & vclave & "'")

                        End If
                    End If
               Next i
            End With

bueno el caso es que me marca el siguiente error:

"InvalidArgument=El Valor de '16' no es valido para 'index'". nombre del parametro: index


me podrian ayudar o darme una referencia de como le puedo hacer, se los agradezco de antemano la atencion prestada y les envio un cordial saludo.

Estás intentando leer mas allá del final del ListView. Pon la instrucción del bucle así:

For i = .Items.Count - 1 To 0 Step -1