Programación General > Visual FoxPro

 Boton Siguiente

(1/1)

grardo:
saludos de nuevo y gracias por su ayuda ..

mi problema es ... tengo un boton que al dar clic se pase por loe registros y lo muestre en un textbox el boton lo llamo boton siguiente
el codigo en el boton es el siguiente

use alumno
if !eof()
   skip 1
endif
if eof()
 go bottom
endif
thisform.txtclave.value=clave
*****
lo que hace el boton al dar clic es avanzar al siguiente registro..
pero hasta ahì llega ya no avanza hasta un tercer registro
Que problema tengo?
***
en el formulario en el evento INIT
tengo el siguiente codigo
select clave from alumno where grado=1 into cursor x
thisform.txtclave.value=x.curp
**el codigo es que al cargar el form se cargue con el registro del alumno
afecta en algo el codigo en el INIT o no?

de antemano gracias por sus respuestas

arielb:
hola, go bottom te lleva al ultiom registro y go top te lleva al primero.
puedes cambiarlo a go top o skip -1

Izcariote:
si el cursor que creas en el init es de solamente un alumno al darle click no te llevara aningun otro registro,

lo que tienes que hacer es asegurarte de que despues de crear el cursor tienes que posicionarte en el primer registro, lo haces de la siguiente manera:

--- Código: Text ---select clave from alumno where grado=1 into cursor alumnogo top in alumnothisform.txtclave.value=alumno.clave 

--- Citar ---use alumno
if !eof()
skip 1
endif
if eof()
go bottom
endif
thisform.txtclave.value=clave
--- Fin de la cita ---

en lugar de eso puedes hcer lo suguiente:


--- Código: Text ---select alumnoif !eof()   skip 1else    go topendifthisform.txtclave.value=alumno.clave 
espero te sirva :comp:

Saludos

Navegación

[0] Índice de Mensajes