FoxPro/Visual FoxPro - mostrar resultado de busqueda en un grid

 
Vista:

mostrar resultado de busqueda en un grid

Publicado por Carlos Hector (14 intervenciones) el 13/07/2007 18:22:47
Hey saludos a la respetuosa comunidad de programadores, de este site, favor de responder a mi pregunta, deseo saber como es que puedo mostra los resultados de una busqueda en un control grid, es un programa en visual foxpro, digamos q ingreso un codigo en un textbox presiono el boton buscar y q me muestre el resultado de los registros encontrados en un grid, favor de apoyarme en algunas ideas, gracias, atte carloshector
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:mostrar resultado de busqueda en un grid

Publicado por Jorge (423 intervenciones) el 13/07/2007 18:30:46
buen dia

1) validas el textbox...
2) haces la consulta (Select * from INTO CURSOR cur1) de preferencia en un procedimiento independiente del evento del objeto que tiene el foco
3) estableces la propiedad del GRID RecordSource="cur1" <- identico al nombre del cursor que asignaste en el query
4) refrescas el grid
y listo con eso te muestra los datos de la consulta en el grid
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
sin imagen de perfil

RE:mostrar resultado de busqueda en un grid

Publicado por neo (1604 intervenciones) el 13/07/2007 19:30:34
O también con la función Locate o Set Filter:

En el botón buscar, Click:

Select Mi_tabla
Locate for upper(nombre)=upper(alltrim(Thisform.txtbuscar.value))
If found() then

Thisform.grid1.column1.text1.value=nombre
Thisform.grid1.column2.text1.value=apellido_paterno
els
endif

************************

Select Mi_tabla
Set filter to
Set Filter to upper(nombre)=upper(alltrim(Thisform.txtnombre.value))
go top

Thisform.grid1.refresh
Thisform.refresh

***********************

Suerte►
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