Hola a todos!
Quiero cargar un listview con el contenido de una tabla temporal. Uso VB6 y ADO.
Tengo el siguiente trozo de código:
Dim item As ListItem
Dim rsttemp As Recordset
Dim strquerytemp As String
............
rsttemp = le asigno la consulta ...
While Not rsttemp.EOF
'añadimos un nuevo elemento a la lista
Set item = lsvSaldos.ListItems.Add(, , rsttemp!tmp_UE)
item.SubItems(1) = rsttemp!tmp_Codigo
item.SubItems(2) = FormatNumber(CSng(rsttemp!tmp_SaldoAnterior), 2)
item.SubItems(3) = FormatNumber(CSng(rsttemp!tmp_Prestamos), 2)
item.SubItems(4) = FormatNumber(CSng(rsttemp!tmp_Pagos), 2)
item.SubItems(5) = FormatNumber(CSng(rsttemp!tmp_SaldoActual), 2)
rsttemp.MoveNext
Wend
Sucede que en tiempo de ejecución, cuando intenta cargar los datos, da el siguiente mensaje de error:
'13' no coinciden los tipos
Alguna idea de lo que puede pasar?
Gracias!!!!!
