Cómo hacer clic en "primer registro" volviendo al primer registro en la programación VFP

Usaste Establecer orden para especificar el orden de clasificación, por lo que ir 1 no es necesariamente el primer registro

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

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