Foro de programacion

#1 (**permalink**) 09 de noviembre,2005, 20:04

Public Sub fill_list()
Dim lst As ListItem
Este es el codigo que tengo pa llenar un listview,
Dim i As Variant
ListView1.ListItems.Clear
If rs.RecordCount = 0 Then Exit Sub

While Not rs.EOF

Set lst = ListView1.ListItems.Add(, , rs(0))
For i = 1 To 13
lst.SubItems(i) = rs(i) <------------------------------¡¡¡¡¡ERROR!!!!!!!
Next i
rs.MoveNext

Wend
End Sub

Pero en la parte donde coloque error (lst.Subitems(i)=rs(i)) me da el error "invalid property value "
Por favor ayudenme!!!!!!

#2 (**permalink**) 14 de noviembre,2005, 17:38

Cita:

Iniciado por ronaldxl

Public Sub fill_list()
Dim lst As ListItem
Este es el codigo que tengo pa llenar un listview,
Dim i As Variant
ListView1.ListItems.Clear
If rs.RecordCount = 0 Then Exit Sub

While Not rs.EOF

Set lst = ListView1.ListItems.Add(, , rs(0))
For i = 1 To 13
lst.SubItems(i) = rs(i) <------------------------------¡¡¡¡¡ERROR!!!!!!!
Next i
rs.MoveNext

Wend
End Sub

Pero en la parte donde coloque error (lst.Subitems(i)=rs(i)) me da el error "invalid property value "
Por favor ayudenme!!!!!!

el error es correcto, y obedece en principio a:

lst.ListItems.Add , , rs(i)

Saludos,
julioalbertogarcia@hotmail.com

#3 (**permalink**) 21 de noviembre,2005, 05:11

creo que el error viene de:
8)

Ist.ListItems.Add,,rs(i)