'Las siguientes definiciones son para que luego me ordene según el tipo de dato en cada columna (no esta el codigo para ordenar)
Const cTexto As String = "Texto"
Const cNumero As String = "Número"
Const cMoneda As String = "Moneda"
Const cFecha As String = "Fecha"
' Los formatos a aplicar según el tipo de datos que contiene
Const cFormatoFecha As String = "dd/mm/yyyy"
Const cFormatoNumero As String = "###,###" ' "###"
Const cFormatoMoneda As String = "###,###.00" ' "###.00"
' La cantidad de cifras a tener en cuenta en los números
Const cCuantasCifras As Long = 20&
Private Sub Cargar_Listview()
Dim itmx As ListItem
lvw_Balance.ListItems.Clear
strSQL = "SELECT * FROM BALANCE"
Set oRSRecordset = Base.OpenRecordset(strSQL, dbOpenSnapshot)
Do Until oRSRecordset.EOF
Set itmx = lvw_Balance.ListItems.Add(, , oRSRecordset!Liqu)
itmx.SubItems(1) = Format$(oRSRecordset("Fecha"), cFormatoFecha)
itmx.SubItems(2) = oRSRecordset("Concepto")
itmx.SubItems(3) = Format$(oRSRecordset("Importes"), cFormatoMoneda)
oRSRecordset.movenext
loop
oRSRecordset.close
end sub
Cada item del listview debe tener asociada un número que corresponde a la clave primaria del registro cargado, pero el problema es que no sé en donde colocarla. Esta sería la clave: oRSRecordset("NroPlanilla"), pero no quiero que se vea en el listview.
Espero que alguien me pueda dar una idea.
Gracias!.
