FoxPro/Visual FoxPro - Navegar hacia fila

 
Vista:

Navegar hacia fila

Publicado por joan (8 intervenciones) el 24/02/2021 09:22:11
Buenos días,

La consulta debe ser muy sencilla, pero la verdad es que he buscado y no encuentro. Tengo un campo de texto cuyo evento KeyPress hace que automáticamente navega hacia la celda de mi grid que contiene lo que pone dentro del campo de texto. En resumen, que a medida que el usuario escribe algo, lo busca en una columna llamada cur_ref que ya tengo en una grid con su cursor

Sin problemas:

1
2
3
SELECT MiCursor1
LOCATE FOR CUR_REF = texto
THISFORM.Grid1.setfocus

me dirige a la celda y me elige la fila tal cual como yo quiero

El problema es que el setfocus hace que se "pierda" el focus del campo de texto, y ya no puedo seguir escribiendo en él, lo tendría que pinchar con el ratón cada vez y eso no es lo que quiero, quiero que a medida que el usuario vaya escribiendo en el campo de texto.

POr si fuera poco, si vuelvo a clicar en el texto me desaparece, por lo que no es posible nunca poner más de un carácter
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
sin imagen de perfil
Val: 147
Bronce
Ha mantenido su posición en FoxPro/Visual FoxPro (en relación al último mes)
Gráfica de FoxPro/Visual FoxPro

Navegar hacia fila

Publicado por zarlu (97 intervenciones) el 24/02/2021 17:50:00
Buenos días Joan!

Yo lo manejo en el InteractiveChange del text y con Set Filter.
Sería "ir y regresar" del grid al text.
Te pasó el código tal cual lo tengo. Quizá la última parte es la que te falta.

1
2
3
4
5
6
7
8
9
10
11
12
SET FILTER TO declist.dec_num=ALLTRIM(Thisform.txtFiltrar.Value) .or. declist.adq_nom=ALLTRIM(Thisform.txtFiltrar.Value)
Thisform.Refresh
COUNT TO mTally
Go Top
Thisform.Label1.Caption="Registros: "+ALLTRIM(STR(mTally))
Thisform.cmdEditar.Enabled=IIF(mTally<=0,.f.,.t.)
Thisform.cmdBorrar.Enabled=IIF(mTally<=0,.f.,.t.)
Thisform.Grid1.SetFocus
Thisform.txtFiltrar.SetFocus
IF !EMPTY(Thisform.txtFiltrar.Value)
	KEYBOARD '{END}'
EndIf

Suerte
zarlu
Chetumal, Quintana Roo, México
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

Navegar hacia fila

Publicado por Joan (8 intervenciones) el 24/02/2021 21:18:25
Justo lo que necesitaba.

Infinitas gracias!
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