FoxPro/Visual FoxPro - AYUDA EN VFP

 
Vista:
Imágen de perfil de CARLOS
Val: 25
Ha mantenido su posición en FoxPro/Visual FoxPro (en relación al último mes)
Gráfica de FoxPro/Visual FoxPro

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 claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
sin imagen de perfil
Val: 1.370
Oro
Ha mantenido su posición en FoxPro/Visual FoxPro (en relación al último mes)
Gráfica de FoxPro/Visual FoxPro

AYUDA EN VFP

Publicado por Fidel José (642 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í
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
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 claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar