LISTVIEW
Hola:
Yo realizo coaitas para la empresa en access pero me falta mucho, encontré este control y quisiera saber más sobre él y sus alcances. He buscado cosas y realicé este pedazo de código para llenar un listview pero no me funciona.
Tengo el siguiente código para llenar un listview en un formulario de access pero me los coloca todos en la misma columna siendo que el segundo dato debe ser de la segunda columna; ¿Identificas cuál es mi error?
Gracias.
With Me.ListView1.ColumnHeaders
.Add , , "opes", 500, lvwColumnLeft
.Add , , "pv", 500, lvwColumnLeft
End With
Do Until rs.EOF
ListView1.ListItems.Add , , rs.Fields("op") & ""
ListView1.ListItems.Add , , rs.Fields("pv") & ""
rs.MoveNext
Loop
Yo realizo coaitas para la empresa en access pero me falta mucho, encontré este control y quisiera saber más sobre él y sus alcances. He buscado cosas y realicé este pedazo de código para llenar un listview pero no me funciona.
Tengo el siguiente código para llenar un listview en un formulario de access pero me los coloca todos en la misma columna siendo que el segundo dato debe ser de la segunda columna; ¿Identificas cuál es mi error?
Gracias.
With Me.ListView1.ColumnHeaders
.Add , , "opes", 500, lvwColumnLeft
.Add , , "pv", 500, lvwColumnLeft
End With
Do Until rs.EOF
ListView1.ListItems.Add , , rs.Fields("op") & ""
ListView1.ListItems.Add , , rs.Fields("pv") & ""
rs.MoveNext
Loop
1 Respuesta
Respuesta de yescuder
1
Lo que pasa es que para este control cada que ADD estas agregando una nueva fila, lo que debes hacer es un solo ADD y para agregar los otros valores utilizas "SubItems(N)", mira este código siguiente:
With ListView1.ListItems.Add
.Text = Format(Text1, "00")
.SubItems(1) = rst!Descripcion
.SubItems(2) = Format(rst!Precio, "$0.00")
.SubItems(3) = Format(Val(Text1) * rst!Precio, "$0.00")
End With
With ListView1.ListItems.Add
.Text = Format(Text1, "00")
.SubItems(1) = rst!Descripcion
.SubItems(2) = Format(rst!Precio, "$0.00")
.SubItems(3) = Format(Val(Text1) * rst!Precio, "$0.00")
End With
