sdemingo
02 de Septiembre del 2003

Hola, tengo un problema al cargar el listview. Bueno, realmente es un listviewctrl de una macro de Autocad 2000.
El recordset tiene datos, pero luego no se muestran en el listview.
Este es el código:

Dim strSql As String
Dim rs As New ADODB.Recordset
Dim i As Integer
Dim itemX As ListItem

' Planos
strSql = "select * from Plano where Alcance = '" & Me.cbAlcance.Text & "' order by [Nombre Plano]"
rs.Open strSql, oConexion, adOpenKeyset, adLockOptimistic
If rs.RecordCount <> 0 Then
'i = 1
Do While Not rs.EOF
Set itemX = lsvPlanos.ListItems.Add(, , rs("Nombre Plano"))
'itemX.Text = rs("Nombre Plano")
rs.MoveNext
'i = i + 1
Loop
rs.Close
End If

¿Alguien sabe qué puede ser???

muchas gracias

[email protected]

juanolas
02 de Septiembre del 2003

bueno yo uso un listview de visual basic 6 normal en sus propiedades de estilo en view lo pongo a report y para cargarlo lo pongo igual que tu solo que cada fila se compone de un item y de varios subitems siendo el item el primer registro y los subitems los siguientes de la siguiente forma:

Do While Not record.EOF
Set newitem = listview.ListItems.Add(, , record(1))
newitem.SubItems(1) = record(2)
newitem.SubItems(2) = record(3)
newitem.SubItems(3) = record(4)

record.MoveNext
record.MoveNext

no se si te valdra al ser un objeto de autocad
Loop