RE:Uso del treeview y ListView
''para llenar un lstView
''arsDatos es un recordset
''lstResguardos es el listview
''lo que está en maúsculas son las constantes de las columnas del listview
Dim objItem As ListItem
With ArsDatos
While Not .EOF
Set objItem = lstResguardos.ListItems.Add(, , 1)
objItem.SubItems(COLCODIGOARTICULO) = .Fields("CodigoArticulo").Value
objItem.SubItems(COLARTICULO) = basArticulos.FstrDescripcionArticulo(.Fields("CodigoArticulo").Value)
objItem.SubItems(COLPRECIO) = Format(.Fields("PrecioUnitario").Value, FORMATO_2DECIMAL)
objItem.SubItems(COLCANTIDAD) = .Fields("Cantidad").Value
objItem.SubItems(COLIMPORTE) = Format(.Fields("PrecioUnitario").Value * .Fields("Cantidad").Value, FORMATO_2DECIMAL)
.MoveNext
Wend
Set objItem = lstResguardos.ListItems.Add(, , "")
lstResguardos.ListItems(lstResguardos.ListItems.Count).Selected = True
End With