Para Olga Díaz
Publicado por Antonio (1271 intervenciones) el 01/12/2004 20:39:03
Hola Olga:
Aplica esto haber si es lo que buscabas...
pongamos que tienes un campo llamado "control" de tipo long y es la llave de tu datawindow
//en el evento timer...
long ll_getrow,ll_control
long ll_row
string ls_seek
ll_getrow = GetRow ( dw_datos )
ll_control = GetItemnumber ( dw_datos, ll_getrow, 'control' )
// esto es para que no se vea el parpadeo que dices y esconda temporalmente lo que hace el datawindow
SetRedraw ( dw_datos, false )
Reset ( dw_datos )
Retrieve ( dw_datos )
// buscas el registro donde estabas posesionada
ls_seek = 'control = '+String ( ll_control )
ll_row = Find ( dw_datos, ls_seek, 1, Rowcount ( dw_Datos ) )
// verificas si se encuentra el registro, ya que puede ser que lo hayan borrado (esto si es que trabajas en red)
if ll_row > 0 then
ScrollToRow ( dw_datos, ll_row )
else
// en caso dse no encontrarse, te posesionas en el primer registro poque si no PB manda un error, ten cuidad en este paso ya que si no hay registros debes validarlo para evitar errores de ejecución
ScrollToRow ( dw_datos, 1 )
end if
SetRedraw ( dw_datos, true )
Espero te sirva amiga...
Suerte
Antonio
Aplica esto haber si es lo que buscabas...
pongamos que tienes un campo llamado "control" de tipo long y es la llave de tu datawindow
//en el evento timer...
long ll_getrow,ll_control
long ll_row
string ls_seek
ll_getrow = GetRow ( dw_datos )
ll_control = GetItemnumber ( dw_datos, ll_getrow, 'control' )
// esto es para que no se vea el parpadeo que dices y esconda temporalmente lo que hace el datawindow
SetRedraw ( dw_datos, false )
Reset ( dw_datos )
Retrieve ( dw_datos )
// buscas el registro donde estabas posesionada
ls_seek = 'control = '+String ( ll_control )
ll_row = Find ( dw_datos, ls_seek, 1, Rowcount ( dw_Datos ) )
// verificas si se encuentra el registro, ya que puede ser que lo hayan borrado (esto si es que trabajas en red)
if ll_row > 0 then
ScrollToRow ( dw_datos, ll_row )
else
// en caso dse no encontrarse, te posesionas en el primer registro poque si no PB manda un error, ten cuidad en este paso ya que si no hay registros debes validarlo para evitar errores de ejecución
ScrollToRow ( dw_datos, 1 )
end if
SetRedraw ( dw_datos, true )
Espero te sirva amiga...
Suerte
Antonio
Valora esta pregunta


0