FoxPro/Visual FoxPro - Ayuda con SELECT

 
Vista:

Ayuda con SELECT

Publicado por Manuel Medina (332 intervenciones) el 10/04/2008 05:57:11
Que tal foro, ya falta poco.

Quiero saber si es posible salir de un select usando ENTER.
EJEMPLO:

SELECT MATRICULA,NOMBRE,APELLIDO FROM ESTUDIANTES WHERE APELLIDO="MEDINA"

Cuando optenga el resultado quiero pulsar ENTER y colocar la matricula y el nombre en el formulario, pero no se como salir del select.

Tengo una idea pero no se como aplicarla, algo asi:

on key label ENTER DO (ALGUN PROCEDIMIENTO QUE QUITE EL SELECT)

SELECT MATRICULA,NOMBRE,APELLIDO FROM ESTUDIANTES WHERE APELLIDO="MEDINA"

ON KEY LABEL ENTER

**************************************
SEGUNDO:
Esta busqueda en el interactive change funciona bien rapido en la red pero la quiero decalificar por la siguiente:
A media que busca y se muestran los registros en un grid quiero que el primero que encuentre aperezca en la parte superior del grid y no abajo como aparece ya que esto hace perder un poco al usuario.


Pruevenla por favor

SELECT ARTICULO
SET ORDER TO DESCRIP && DESCRIP

IF this.Value <>' '
m.busca=ALLTRIM(this.Value)
SEEK m.busca
Endif

Thisform.grid1.Refresh()

Gracias, foro.
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:Ayuda con SELECT

Publicado por enrique (1041 intervenciones) el 10/04/2008 14:32:08
Primero
ON KEY LABEL ENTER KEYBOARD "{ESC}"

Segundo
Supongamos que tu Grid contiene 10 Filas (Rows) visibles, entonces agrega despues del Refresh

For i = 1 to 10
Thisform.grid1.Doscroll(i)
endfor
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

RE:Ayuda con SELECT

Publicado por Manuel Medina (332 intervenciones) el 11/04/2008 01:26:15
Mi hermano Enrique,

Cuando uso:

ON KEY LABEL ENTER KEYBOARD "{ESC}"

para salir del select sale una ventana con una pestaña que dice program error y dice ***INTERRUPTD *** me da la opcion para cancel, suspend, inore, help.

si logra ayudarme le sacare mucho provecho a esto

la parte segunda la boy a probar.

Gracias Enrique
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