• Lunes 18 de Noviembre de 2024, 06:44

Autor Tema:  Boton Siguiente  (Leído 2585 veces)

grardo

  • Nuevo Miembro
  • *
  • Mensajes: 6
    • Ver Perfil
Boton Siguiente
« en: Jueves 31 de Enero de 2008, 19:40 »
0
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

  • Moderador
  • ******
  • Mensajes: 771
  • Nacionalidad: pa
    • Ver Perfil
    • http://coder-pa.blogspot.com
Re: Boton Siguiente
« Respuesta #1 en: Jueves 31 de Enero de 2008, 20:54 »
0
hola, go bottom te lleva al ultiom registro y go top te lleva al primero.
puedes cambiarlo a go top o skip -1
"Porque de tal manera amó Dios al mundo que dio a su hijo unigénito para que todo aquél que en él crea no se pierda mas tenga vida eterna"
Juan 3:16

http://coder-pa.blogspot.com

Izcariote

  • Nuevo Miembro
  • *
  • Mensajes: 6
    • Ver Perfil
Re: Boton Siguiente
« Respuesta #2 en: Martes 19 de Febrero de 2008, 19:13 »
0
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
  1. select clave from alumno where grado=1 into cursor alumno
  2. go top in alumno
  3. thisform.txtclave.value=alumno.clave
  4.  

Citar
use alumno
if !eof()
skip 1
endif
if eof()
go bottom
endif
thisform.txtclave.value=clave

en lugar de eso puedes hcer lo suguiente:

Código: Text
  1. select alumno
  2. if !eof()
  3.    skip 1
  4. else
  5.    go top
  6. endif
  7. thisform.txtclave.value=alumno.clave
  8.  

espero te sirva :comp:

Saludos