Red de conocimiento informático - Material del sitio web - Cómo hacer clic en "primer registro" volviendo al primer registro en la programación VFP

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