Programación General => Visual FoxPro => Mensaje iniciado por: grardo en Jueves 31 de Enero de 2008, 19:40
Título: Boton Siguiente
Publicado por: grardo en Jueves 31 de Enero de 2008, 19:40
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
Título: Re: Boton Siguiente
Publicado por: arielb en Jueves 31 de Enero de 2008, 20:54
hola, go bottom te lleva al ultiom registro y go top te lleva al primero. puedes cambiarlo a go top o skip -1
Título: Re: Boton Siguiente
Publicado por: Izcariote en Martes 19 de Febrero de 2008, 19:13
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 alumno
go top in alumno
thisform.txtclave.value=alumno.clave
Citar
use alumno if !eof() skip 1 endif if eof() go bottom endif thisform.txtclave.value=clave