FoxPro/Visual FoxPro - Ayuda Grid

   
Vista:

Ayuda Grid

Publicado por gaston (80 intervenciones) el 12/02/2009 20:08:19
Hola amigos, por favor necesito ayuda con una grilla,
Resulta que tengo un cursor con datos y una caja de texto para filtrar datos de un cursor x, ahora bien lo que necesito hacer es a medida que el usuario escribe en el textbox se filtren los datos en el grid y una vez encontrado el registro en el grid y al hacer clic sobre el registro del grid, me llene los textbox del form.

Gracias!!
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 Grid

Publicado por Ernesto Hernandez (4632 intervenciones) el 13/02/2009 00:43:02
http://www.portalfox.com/index.php?name=News&file=article&sid=2522


implementa este codigo en el InteActiveChange donde se introduce los codigos de productos a buscar o lo que sea...

Set Ansi Off
Set Exact Off
r=Len(Alltrim(This.Value))
s=Substr(Alltrim(This.Value),1,r)
s=Upper(s)
If Empty(r)
Thisform.GRID2.Visible=.F.
Else
If Isalpha(s)
lcBusca = "%" + (s) + "%"
With Thisform.GRID2
.RecordSource="Select CODIGO, DESC, PRECIO, STOCK ;
from DATOS%#092;STOCK WHERE DESC LIKE lcBusca INTO CURSOR _desc ORDER BY DESC"
If Empty(_Tally)
.Visible=.F.
=PLAYWAV(Sys(5)+Sys(2003)+"%#092;SONIDOS%#092;CHIMES.WAV",1)
Else
.Visible = .T.
Endif
.SetAll("DynamicBackColor", "IIF(MOD(RECNO( ), 2)=0, ;
RGB(255,255,255), RGB(215,255,255))", "Column")
.Refresh
Endwith
Endif
Endif

Nota: Ademas del Grid padre debes tener un Grid hijo en este caso Grid2 pero con el valor "VISIBLE=.F." Esto lo que hace es que cuando se necesite buscar un articulo solo se tipee el nombre del articulo en el mismo lugar donde se ingresan los codigos sin acudir a otras teclas.
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