Cómo hacer clic en "primer registro" volviendo al primer registro en la programación VFP
Estoy acostumbrado a ello y el método común es ir arriba
Usar ir abajo al final, de la siguiente manera Es un programa de posicionamiento de hace mucho tiempo para su referencia
* Nombre del programa: Goto.PRG
* Función :: p>
* Función: Posicionamiento de registros de la base de datos: Ubicación de los registros de la base de datos.
*
Tp privado, Skp
Pulsar tecla para borrar
definir ventanas Ir al título '[Ubicación de registro]' De 15, 2 a 20,76;
Esquema de color de sombras 5
activar ventanas Goto.PRGactivar ventanas Goto
@1,2 Obtener tp Imagen'@*h \lt ;1.Arriba;\lt;2.Abajo;\lt;3.Designar(Ir a);\lt;4.Saltar;\?\0.Cancelar' El valor predeterminado es 1
Ciclo de lectura
p>borrar
do Caso
Caso recc()=0
Caso tp=1
Ir arriba p>
Caso tp=2
Ir abajo
Caso tp=3
@1, 20 Diga 'Número de registro (Ir a) ? Obtener Skp Predeterminado recn() rango 1, recc()
Leer
Ir a Skp
Caso tp=4
@? 1, 20 ¿Dice 'sobregrabar (saltar)'? Obtener el valor predeterminado de Skp 0
Leer
Omitir Skp
endCase
Ventana de lanzamiento Ir a
op Key
Volver