PUNTERO EN TSBROWSE
Publicado por Manuel Rivera (30 intervenciones) el 29/05/2002 00:26:58
Foro necesito que me ayuden a resolver los sgte :
Por 1ra vez estoy la libreria TsBrowse estuve probando pie y cabeceras todo OK pero despues solo quize hacer una simple busqueda un get que lee un dato y luego busca en el archivo refresco mi browse y a la hora que ingreso al browse a desplazarme se mueven los registros hacia arriba.
Este es el codigo :
define dialog dlg resource "Dialogo"
redefine browse obrw fiel ,,,,, etc id 101 og dlg update
redefine get oget var cvar pict'9999' valid busca(cVar) id 102 if Dlg
activate dialog Dlg
*------
Static Function Busca(cdato)
Archivo->(Dbseek(cDato))
Dlg:refresh()
retur .t.
a la hora que apunta al registro se posiciona el puntero , pero a la hora que recibe el foco se piede el puntero y muestra ekl primer registro del archivo Dbf.
! Ayuda por favor ¡
Por 1ra vez estoy la libreria TsBrowse estuve probando pie y cabeceras todo OK pero despues solo quize hacer una simple busqueda un get que lee un dato y luego busca en el archivo refresco mi browse y a la hora que ingreso al browse a desplazarme se mueven los registros hacia arriba.
Este es el codigo :
define dialog dlg resource "Dialogo"
redefine browse obrw fiel ,,,,, etc id 101 og dlg update
redefine get oget var cvar pict'9999' valid busca(cVar) id 102 if Dlg
activate dialog Dlg
*------
Static Function Busca(cdato)
Archivo->(Dbseek(cDato))
Dlg:refresh()
retur .t.
a la hora que apunta al registro se posiciona el puntero , pero a la hora que recibe el foco se piede el puntero y muestra ekl primer registro del archivo Dbf.
! Ayuda por favor ¡
Valora esta pregunta
0