FoxPro/Visual FoxPro - para: Neo

Primero que nada gracias pro su ayuda y por el codigo que me envio es buenisimo pero tuve el error de decirle que era un grid, pero no es un grid si no una cuadricula es por eso que el codigo no funciona ya que no se si es lo mismo un grid y una cuadricula ya que la cuadricula no tiene textbox. espero resivir su respuesta y muchas gracias.

Como que no tiene Textbox???

Me puedes enviar una imagen (abre tu cuadricula y pulsa la tecla "Impr Pant" del teclado, luego lo pegas en mis documentos y depues envíamelo a mi email...

Note;
Esto de la imagen, con el fin de conocer mas acertadamente a que te refieres.

Espero Respuesta...Suerte►

No pude enviar la informacion que me pidio ya que no cuento con acceso a hotmail en este momento. se lo enviare mas tarde pero aqui le mando el codigo que modifique

LPARAMETERS nKeyCode, nShiftAltCtrl
If Lastkey()=-2 &&Tecla F3
1. Select ci1a14w.dbf

2. Set Filter to Upper(Num_prog) = Upper(Alltrim(Thisform.cuadricula.columm1.TxtTexto.value))
go top

Imprimir=messagebox("Desea Imprimir este Registro?",4+48,"Imprimir Registro")
If Imprimir=6
Wait Window "Generando Vista Previa" Timeout .8
Set Filter to
Report Form "reporte.frx" Prev
else
Wait Window "Vista Previa Cancelada" Timeout .8
Set Filter to
Thisform.cuadricula.columm1.TxtTexto.Setfocus()
endif
endif

Por favor me podría explicar un poco sobre el código. Asi le hice los cambios pero no funcionan los errores los marque con numeros y el otro error es en donde se encuentra columm1

Yo veo las modificaciones del codigo bien, pero ahora necesito saber los mensajes de error que te muestra.....

Escribelos aquí tal cual....muy probablemente te ayudemos con esto...

Buen Dia!!

LPARAMETERS nKeyCode, nShiftAltCtrl
If Lastkey()=-2 &&Tecla F3
1. Select ci1a14w.dbf

1.- SELEC ci1a14w && ESTE ES EL NOMBRE DE TU TABLA ??

2. Set Filter to Upper(Num_prog) = Upper(Alltrim(Thisform.cuadricula.columm1.TxtTexto.value))

SET FILTER TO STR(VAL(UPPER(Num_prog) UPPER(ALLTRIM(THISFORM.CUADRICULA.COLUMM1.TXTTEXTO.VALUE))

aqui los campos son de diferente tipo me imagino que por eso te marca error

sUERTE

Como que no tiene Textbox???

Me puedes enviar una imagen (abre tu cuadricula y pulsa la tecla "Impr Pant" del teclado, luego lo pegas en mis documentos y depues envíamelo a mi email...

Note;
Esto de la imagen, con el fin de conocer mas acertadamente a que te refieres.

Espero Respuesta...Suerte►

rosita
perdon tambien ya estoy confundido con tus terminos creo que analizando bien una cuadricula es igual que un grid y si esto es asi busca el evento

migrid.column1.text1.Click

poniendo el codigo en ese evento pones tu codigo


Suerte

Eso fue la respuesta que le dí en un principio, mas abajo....

Por eso lo de la imagen...

Buen dia!! Mexican Boy""

igualmente compañero

Buen dia !!!!!!