FoxPro/Visual FoxPro - Manejo de SKIP

 
Vista:

Manejo de SKIP

Publicado por Enrique Garcia (32 intervenciones) el 18/05/2001 22:31:09
Estoy navegando en mis tablas con botones que contienen el comando SKIP. Como puedo saber si estoy en el primero o ultimo registro de mi tabla si los comandos BOF y EOF no lo detectan?
Gracias por su atencion!!!
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Manejo de SKIP

Publicado por ROD (184 intervenciones) el 19/05/2001 02:37:55
Hola Enrique como estas?
creo que este es el codigo que necesitas.
******************ATRAS************************
IF BOF()
GO TOP
THISFORM.command1.ENABLED=.F.
THISFORM.command2.ENABLED=.F.
ELSE
SKIP -1
THISFORM.command3.ENABLED=.T.
THISFORM.command4.ENABLED=.T.
IF BOF()
GO TOP
THISFORM.command1.ENABLED=.F.
THISFORM.command2.ENABLED=.F.
ENDIF
ENDIF
THISFORM.REFRESH
******************ADELANTE************************
IF EOF()
GO BOTTOM
THISFORM.command1.ENABLED=.T.
THISFORM.command2.ENABLED=.T.
ELSE
SKIP
IF EOF()
GO BOTTOM
THISFORM.command3.ENABLED=.F.
THISFORM.command4.ENABLED=.F.
ENDIF
THISFORM.command1.ENABLED=.T.
THISFORM.command2.ENABLED=.T.
ENDIF
THISFORM.REFRESH
******************FIN****************
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar