FoxPro/Visual FoxPro - busqueda en un grid

salu2
de nuevo malestando, nesesito realizar una busqueda en la cual requiero que me busque todos los datos que se an iguales en un campo, y que los muestre en un grid pero no tengo ni idea.
espero respuestas!!!

Podrias usar una instruccion SELECT- SQL, pero para poder explicartelo, tendrias que ser un poco mas explicito...

ok te lo dire asi

nesesito que al teclear todos los usuarios que se llamen ejemplo "Juan" me muestre atodos los que esten en la tabla y datos como direccion, sueldo,etc. claro de cada usuario juan.

Debes crear un FORM que contenga un TEXTBOX y un GRID que cuando ingreses tu busqueda en el TEXTBOX te lo muestre en la grilla. mañana te envio a tu mail un ejemplo que puede servirte, si tu quieres.

Te envío, a tu mail, dos formularios simples que te pueden ayudar a empezar a entender, solo un poco, como se manejan algunas cosas en VFP.

Una es una Calculadora (muy elemental) pero donde se emplean varias técnicas y donde puedes revisar los Códigos de cada Botón, asi como el INIT Y el LOAD del FORM .
Cuando lo entiendas puedes probar agragarle un Botón para calcular Porcentajes (%) , otro para acumular los resultados en memoria, y otro para mostrarlos.
Los tenia pero lo saqué a proposito(je,je).

El otro (PROBAR.SCX) contiene un TEXTBOX y un GRID.
Revisa el INIT y el LOAD del FORM, tambien el Entorno de Datos ; el VALID del TETXBOX, y en el OBJETO Text1 del GRID1, observa el KeyPress.

Espero te sirvan

crea un textbox, y un grid con la tabla que contiene los datos a buscar:

En el Evento InteractiveChange del textbox:

Select Datos.dbf

Set Filter to

Set Filter to upper(nombre)=upper(alltrim(Thisform.text1.value))
Go Top

Thisform.refresh

Pruebalo, nunca falla..

Suerte

FUNCTION BusquedaExclusiva
LPARAMETERS tExpr,tCampo,tMayMinu
*-- Inicializar la variable de condicion a evaluar
vCondicion = ""
*--- Evalúa la Expresion
tCampo=IIF(tMayMinu=1,tCampo,UPPER(tCampo))
vCadena = ALLTRIM(tExpr) + " "
vCadena=IIF(tMayMinu=1,vCadena,UPPER(vCadena))
*-- generar expresion a evaluar
DO WHILE !EMPTY(vCadena)
vCondicion = vCondicion + "AT('" + LEFT(vCadena,AT(" ",vCadena) - 1) + "',tCampo) > 0"
vCadena = SUBSTR(vCadena,AT(" ",vCadena) + 1)
vCondicion = IIF(!EMPTY(vCadena),vCondicion + " AND ",vCondicion)
ENDDO
vCondicion = IIF(EMPTY(vCondicion),".T.",vCondicion)
*-Aqui se evalua y devuelve true si cumple con la condicion
valor=IIF(&vCondicion,.T.,.F.)
RETURN valor

Suerte

FUNCTION BusquedaExclusiva
LPARAMETERS tExpr,tCampo,tMayMinu
*-- Inicializar la variable de condicion a evaluar
vCondicion = ""
*--- Evalúa la Expresion
tCampo=IIF(tMayMinu=1,tCampo,UPPER(tCampo))
vCadena = ALLTRIM(tExpr) + " "
vCadena=IIF(tMayMinu=1,vCadena,UPPER(vCadena))
*-- generar expresion a evaluar
DO WHILE !EMPTY(vCadena)
vCondicion = vCondicion + "AT('" + LEFT(vCadena,AT(" ",vCadena) - 1) + "',tCampo) > 0"
vCadena = SUBSTR(vCadena,AT(" ",vCadena) + 1)
vCondicion = IIF(!EMPTY(vCadena),vCondicion + " AND ",vCondicion)
ENDDO
vCondicion = IIF(EMPTY(vCondicion),".T.",vCondicion)
*-Aqui se evalua y devuelve true si cumple con la condicion
valor=IIF(&vCondicion,.T.,.F.)
RETURN valor

Suerte

FUNCTION BusquedaExclusiva
LPARAMETERS tExpr,tCampo,tMayMinu
*-- Inicializar la variable de condicion a evaluar
vCondicion = ""
*--- Evalúa la Expresion
tCampo=IIF(tMayMinu=1,tCampo,UPPER(tCampo))
vCadena = ALLTRIM(tExpr) + " "
vCadena=IIF(tMayMinu=1,vCadena,UPPER(vCadena))
*-- generar expresion a evaluar
DO WHILE !EMPTY(vCadena)
vCondicion = vCondicion + "AT('" + LEFT(vCadena,AT(" ",vCadena) - 1) + "',tCampo) > 0"
vCadena = SUBSTR(vCadena,AT(" ",vCadena) + 1)
vCondicion = IIF(!EMPTY(vCadena),vCondicion + " AND ",vCondicion)
ENDDO
vCondicion = IIF(EMPTY(vCondicion),".T.",vCondicion)
*-Aqui se evalua y devuelve true si cumple con la condicion
valor=IIF(&vCondicion,.T.,.F.)
RETURN valor

Suerte