FoxPro/Visual FoxPro - AYUDA EN VFP

AYUDA EN VFP

Publicado por CARLOS (8 intervenciones) el 08/02/2017 10:40:26

ESTE ES EL CASO TENGO UNA CAJA DE TEXTO (TEXT1) Y TENGO 3 GRIF (GRID1)(GRID2)(GRID3), LO QUE QUIERO ES QUE LOS DATOS QUE YO PONGA EN EL TEXT1 CUANDO PRECIONE ENTER PASE AL GRIF1 QUE CUANDO PRECIONE SIGNO DE MAS + SE BALLA AL GRIF 2 Y QUE CUANDO PRECIONE SIGNO DE MENOS - PASE AL GRIF 3, COMO LO AGO?????

Valora esta pregunta

Me gusta: Está pregunta es útil y esta clara

No me gusta: Está pregunta no esta clara o no es útil

Responder

Pos: 2

Val: 1.011

AYUDA EN VFP

Publicado por Fidel José (657 intervenciones) el 08/02/2017 22:21:42

Vaya, necesitas mejorar un poco tu castellano. Y también el inglés. No hay ningún GRIF en Visual Fox Pro.
Pero bueno, se entiende que te refieres a un control Grid.

Lo primero que hay que tener en cuenta es que los datos no pasan a ningun grid, sino al cusor asociado al grid de que se trate.
Por lo tanto, sería bueno saber cómo se llaman esos cursores.

Lo segundo que hay que tener en cuenta, es que en un textbox solamente hay un (1) dato. De donde tu consulta resulta un poco extraña.

Bueno, si este no es tu escenario, ha dos posibilidades:
1) Tu no tienes idea de lo que es un control Grid
2) Yo no tengo idea de lo que estás preguntando.

En cuanto al destino de acuerdo con la tecla que se presione, se puede programar el evento KeyPress del textbox (text1)
Ahora bien, tienes que tener en cuenta que si el signo menos forma parte de un número si se digita al incio y forma parte de una cadena (para Text1.Value="" si se digita en cualquier momento)

Podría pensarse en algo así

Text1

*<Init Event>

Addproperty(THIS,"Target","")

Addproperty(THIS,"Refrescar",null)

*<KeyPress Event>

LPARAMETERS nKeyCode, nShiftAltCtrl

DO CASE

	CASE nKeyCode = 13

		this.target = thisform.grid1.REcordSource

                This.refrescar = thisform.Grid1

	CASE nKeyCode = 43

		this.target = thisform.grid2.RecordSource

                This.REfrescar = thisform.GRid1

                NODEFAULT       && impide que el signo "+" forme parte de los datos ingresados

	CASE nKeyCode = 45

		this.target = thisform.grid3.RecordSource

                This.REfrescar = thisform.Grid3

                NODEFAULT         && impide que el signo "-" forme parte de los  datos ingresados

ENDCASE

*<LostFocus>

SELECT (this.target)

* INSERT / REPLACE / NO SE QUE with THIS.VALUE

THIS.REFRESCAR.REFRESH

Valora esta respuesta

Me gusta: Está respuesta es útil y esta clara

No me gusta: Está respuesta no esta clara o no es útil

Comentar