Ayuda con ListView
Sonia
Tengo un procedimiento para llenar un ListView que en un proyecto funciona
perfectamente.
Abrí ese formulario en un nuevo proyecto, para probar de paginar la
información (debido a la gran cantidad de registros que muestra) y al
ejecutarlo me sale "Error 13 en tiempo de ejecución: No coinciden los
tipos" marcándome la líne que tiene el asterisco.
Realmente no entiendo el porqué, si no le modifiqué aún nada, así tal cual
está en el otro proyecto y funciona.
Si alguien sabe qué puede suceder estaré, como siempre, muy agradecida.
Sub llenarListView1()
MousePointer = 11
Dim rst As Recordset
Dim tLi As ListItem
If cnn.SH.State = adStateClosed Then cnn.SH.Open
sBus = "SELECT * FROM AltasHechas LEFT JOIN ServHechos ON
AltasHechas.id=ServHechos.id " & _
" WHERE AltasHechas.fecha_servicio BETWEEN" & FechaSQL(listaDesde) &
" AND " & FechaSQL(listaHasta) & " ORDER BY AltasHechas.fecha_servicio,
AltasHechas.id;"
Set rst = cnn.SH.Execute(sBus)
cabeceraListView1
With rst
If Not (.BOF And .EOF) Then
Dim costo_jhd As Double
FservList.ListView1.ListItems.Clear
ListView1.View = lvwReport
ListView1.LabelEdit = lvwManual
Do While Not .EOF
* Set tLi = FservList.ListView1.ListItems.Add(, ,
.Fields("AltasHechas.numero") & "")
tLi.SubItems(1) = IIf(Not (IsNull(.Fields("movil"))),
IIf(Not (.Fields("movil") = 0), .Fields("movil") & "", ""), "")
tLi.SubItems(2) = .Fields("fecha_servicio") & ""
....
--
Un saludo
desde Buenos Aires, Argentina
Sonia
Sonia
Diego Montenegro
No le veo sentido. Prueba sacandolo porque no conforma parte de la sintaxis.
Diego M.
"Sonia" <poll...@yahoo.com.ar> escribió en el mensaje
news:OdsR9iWb...@TK2MSFTNGP03.phx.gbl...
Sonia
wrote:
> realmente no se para que pusiste ese asterisco antes del Set.
> No le veo sentido. Prueba sacandolo porque no conforma parte de la sintaxis.
>
Hola Diego
Antes del código puse: "...marcándome la líne que tiene el asterisco"
para que sepan en qué línea me marca el error, el asterisco lo puse en
el mensaje, no está en el proyecto.
Sonia
Javier (Clevertec)
Si es un error 13 en esa línea, sólo se me ocurre que el campo que pasas no
sea de texto (de hecho, acaba en .numero).
Prueba a poner:
Set tLi = FservList.ListView1.ListItems.Add(, ,
cStr(.Fields("AltasHechas.numero")))
Un saludo
Javier
-------
"Sonia" <poll...@yahoo.com.ar> escribió en el mensaje
news:O6aJsNWb...@TK2MSFTNGP05.phx.gbl...
Sonia
da esa sensación, pero no es así, es por "Numero de Servicio" y es un dato
de tipo texto.
Muchos están compuestos por letras y números, inclusive el primer registro
contiene en ese campo VR9187197
Gracias de todos modos
--
Un saludo
desde Buenos Aires, Argentina
Sonia
"Javier (Clevertec)" <clev...@wanadoo.es> escribió en el mensaje
news:O79Vy9Wb...@TK2MSFTNGP05.phx.gbl...
Javier (Clevertec)
Nunca se sabe... ;-)
Aún si no te funciona así, deberías sustituir provisionalmente un campo de
texto, tal como:
Set tLi = FservList.ListView1.ListItems.Add(, , "PRUEBA")
para ver si ya no provoca el error.
Un saludo
Javier
--------
"Sonia" <poll...@yahoo.com.ar> escribió en el mensaje
news:el40UJXb...@TK2MSFTNGP03.phx.gbl...
Sonia
Hice lo que sugeriste, puse
Set tLi = FservList.ListView1.ListItems.Add(, , "PRUEBA")
y está provocando el error, ¿sabes a qué puede deberse?
Sonia
Javier (Clevertec)
¿Te está provocando en la misma línea el error o en la siguiente?
Podría ser que no conecte el recordset igual que en el otro proyecto y te
vengan valores nulos.
Por si acaso, aplica la función CStr ó Str ó Format o cualquiera que
convierta a cadena los valores de la tabla.
No tiene nada que ver, pero, por curiosidad, ¿por qué haces referencia al
nombre del formulario en unas sentencias y no en otras?
Espero que lo resuelvas.
Un saludo
Javier
---------
"Sonia" <poll...@yahoo.com.ar> escribió en el mensaje
news:O9SczVXb...@TK2MSFTNGP04.phx.gbl...
Sonia
realmente esto no se entiende, al menos no "yo"
El error lo provoca en la línea Set tLi =
FservList.ListView1.ListItems.Add(, , "PRUEBA")
y cuando estaba puesto Set tLi = FservList.ListView1.ListItems.Add(, ,
muestra correctamente el valor del campo (que es alfanumérico)
También probé con CStr y nada, sigue dando error.
Respecto a tu curiosidad... :) ...despiste no más...
de todos modo gracias.
--
Un saludo
desde Buenos Aires, Argentina
Sonia
"Javier (Clevertec)" <clev...@wanadoo.es> escribió en el mensaje
news:%23sQ8ZfX...@TK2MSFTNGP02.phx.gbl...
Edgar Contreras
Intenta declarando el ListItem de la siguiente manera:
Dim tLi As MSComctlLib.ListItem
--
Saludos,
Edgar Contreras
suppor...@ESTOgenerationdigital.net
[Conectado desde Tijuana, B.C. México]
"Sonia" <poll...@yahoo.com.ar> wrote in message
news:O6aJsNWb...@TK2MSFTNGP05.phx.gbl...
Sonia
pero sigue dando el mismo error.
--
Un saludo
desde Buenos Aires, Argentina
Sonia
"Edgar Contreras" <garyc...@ESTOhotmail.com> escribió en el mensaje
news:u$$6gqXbH...@TK2MSFTNGP05.phx.gbl...
Guillermo Peralta
Que hay en el procedimiento cabeceraLitView1?, si comentas esa linea el
error se sigue produciendo?
No se estará ejecutando algun otro codigo en algo que no estés / estemos
viendo? Lo has seguido paso a paso con F8?
Saludos
Guilermo
--
AG - CBA - ARG
"Sonia" <poll...@yahoo.com.ar> escribió en el mensaje
news:O6aJsNWb...@TK2MSFTNGP05.phx.gbl...
Julio Cesar
> Hola Sonia;
>
> Que hay en el procedimiento cabeceraLitView1?, si comentas esa linea el
> error se sigue produciendo?
>
> No se estará ejecutando algun otro codigo en algo que no estés / estemos
> viendo? Lo has seguido paso a paso con F8?
>
> Saludos
> Guilermo
>
Hola:
No será que algún valer que trae no es del tipo que se le puede asginar
de clave al ListView???
Un saludo,
Vinchenzo vinç
> Gracias Edgar,
> pero sigue dando el mismo error.
>
>
> news:u$$6gqXbH...@TK2MSFTNGP05.phx.gbl...
>> Sonia, buen dia,
>>
>> Intenta declarando el ListItem de la siguiente manera:
>>
>> Dim tLi As MSComctlLib.ListItem
>>
Hola Sonia,
el problema es el que te comenta Edgar, lo que sucede es que sería declarándola como:
Dim tLi As ComctlLib.ListItem
El problema "real" que tienes está explicado en esta respuesta anterior
http://groups.google.com/group/microsoft.public.es.vb/msg/c9aece3d67981a4e
En dicha respuesta tan sólo tienes que sustituir lo que se diga del control TreeView por ListView y del objeto Node por ListItem.
--
Saludos
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
( ! ) Respuestas precedentes en Google:
http://groups.google.com/group/microsoft.public.es.vb
( i ) Temperancia en el foro:
http://support.microsoft.com/default.aspx?scid=fh;ES-ES;newsreglas
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
Sonia
en el procedimiento cabeceraListView1 sólo pone los encabezados. Lo comenté
como sugeriste, pero sigue igual.
Esto es muy extraño, puesto que en otro proyecto funciona a la perfección.
Tomé este formulario para probar una modificación, sin tocar el original, ya
que debo conseguir paginar los registros por el tiempo que demora en
mostrarme el listado.
De todos modos muchas gracias, a vos y a todos los que intentan ayudarme.
--
Un saludo
desde Buenos Aires, Argentina
Sonia
"Guillermo Peralta" <guillermo...@SPAMonenet.com.ar> escribió en el
mensaje news:%23r8bQtX...@TK2MSFTNGP05.phx.gbl...
Sonia
El primer valor que trae es alfanumérico.
Este mismo formulario funciona a la perfección en otro proyecto. Realmente
no entiendo qué sucede.
Gracias igual
--
Un saludo
desde Buenos Aires, Argentina
Sonia
"Julio Cesar" <peti_on...@hotmail.com> escribió en el mensaje
news:udEWf0Xb...@TK2MSFTNGP05.phx.gbl...
Javier (Clevertec)
que funciona)?
A ver si has cambiado alguna versión...
Un saludo
Javier
------
"Sonia" <poll...@yahoo.com.ar> escribió en el mensaje
news:u3rBOnXb...@TK2MSFTNGP06.phx.gbl...
Edgar Contreras
intentando asignar un tipo de datos incorrecto a un objeto o variable, es
como cuando tienes un precedimiento declarado así:
Public Sub MiProc(byval MiValor as Long)
...
End Sub
y lo llamas:
Dim MiVar as String
MiVar="El Valor"
MiProc MiVar
Qué componentes son los que tienes marcados para tu proyecto?
Pregunto, ya que la clase ListItem la puedes encontrar en
- Microsoft Windows Common Controls 5.0
- Microsoft Windows Common Controls 6.0
La declaración
Dim tLi As MSComctlLib.ListItem
se refiere a la versión 6.0, para la versión 5.0 es:
Dim tLi As ComctlLib.ListItem
Si en las referencias de tu programa tienes seleccionadas ambas versiones
debes tener cuidado de usar los componentes de la misma versión.
--
Saludos,
Edgar Contreras
suppor...@ESTOgenerationdigital.net
[Conectado desde Tijuana, B.C. México]
"Sonia" <poll...@yahoo.com.ar> wrote in message
news:%23vCvStX...@TK2MSFTNGP04.phx.gbl...
Sonia
Diste en el blanco!!!
Ahí estaba el problema
Tenía los dos componentes marcados.
Ahora quité el 6 y funcionó
Te agradezco enormemente, igualmente a todos los que procuraron darme una
mano.
y... como siempre digo: Es un placer estar en este foro!!!
--
Un saludo
desde Buenos Aires, Argentina
Sonia
"Edgar Contreras" <garyc...@ESTOhotmail.com> escribió en el mensaje
news:e$ZgqFYbH...@TK2MSFTNGP02.phx.gbl...
Sonia
efectivamente tenía marcado un componente que no debía.
Ya lo quité y funcionó.
Muchas gracias a vos y a todos por la ayuda.
Es un placer consultar aquí
--
Un saludo
desde Buenos Aires, Argentina
Sonia
"Javier (Clevertec)" <clev...@wanadoo.es> escribió en el mensaje
news:OIX0%23CYbH...@TK2MSFTNGP05.phx.gbl...
Edgar Contreras
Y la pregunta de los 64,000 por qué no usas la versión 6 en lugar de la
5?... :D
--
Saludos,
Edgar Contreras
suppor...@ESTOgenerationdigital.net
[Conectado desde Tijuana, B.C. México]
"Sonia" <poll...@yahoo.com.ar> wrote in message
news:OwnKNQY...@TK2MSFTNGP02.phx.gbl...
Sonia
...ya lo estoy haciendo...
:) gracias nuevamente!!!
--
Un saludo
desde Buenos Aires, Argentina
Sonia
"Edgar Contreras" <garyc...@ESTOhotmail.com> escribió en el mensaje
news:uguTYSY...@TK2MSFTNGP04.phx.gbl...
Edgar Contreras
marca?... :D...
Sin embargo, si deja alguna marca en el pintado del control debe ser algo
que solo MS podría corregir... je!...
--
Saludos,
Edgar Contreras
suppor...@ESTOgenerationdigital.net
[Conectado desde Tijuana, B.C. México]
"Sonia" <poll...@yahoo.com.ar> wrote in message
news:%23FRKdfY...@TK2MSFTNGP03.phx.gbl...
> Edgar, por esas casualidades...
>
> ¿sabes por qué con la versión Microsoft Windows Common Controls 6.0
> al recorrer el listado deja estas marcas?
>
>
>
>
>
> Cosa que no me ocurre en el otro proyecto con la versión 5
>
>
>
>
>
>
>
> nuevamente gracias
Julio Cesar
> Sí Guillermo, seguí paso a paso con F8, y es allí el problema
> en el procedimiento cabeceraListView1 sólo pone los encabezados. Lo comenté
> como sugeriste, pero sigue igual.
>
> Esto es muy extraño, puesto que en otro proyecto funciona a la perfección.
>
> Tomé este formulario para probar una modificación, sin tocar el original, ya
> que debo conseguir paginar los registros por el tiempo que demora en
> mostrarme el listado.
>
> De todos modos muchas gracias, a vos y a todos los que intentan ayudarme.
>
>
No podes postear esa parte de código???, para que veamos que puede estar
sucediendo..
Un saludo,