FoxPro/Visual FoxPro - busquedas

   
Vista:

busquedas

Publicado por Sebastian (253 intervenciones) el 26/03/2008 16:58:38
Hola programadores pueden ayudarme hacer una busqueda se trata de lo siguiente tengo un combo1 y un text1 y una grilla donde mostrara los resultados, cuando filtro por el combo lo hace correctamente luego cuando quiero seguir filtrando por el text1 lo hace pero suelta el filtro del combo1 como puedo solucionar este problema

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:busquedas

Publicado por enrique (1041 intervenciones) el 26/03/2008 17:41:08
Si lo que haces es mostrar en el Grid lo filtrado por el ComboBox y el Text debes incluir en el filtro ambos datos ya que los filtros no son acumulativos.
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

RE:busquedas

Publicado por Sebastian (253 intervenciones) el 26/03/2008 18:21:07
gracias lo hice pero no se porque tengo problemas
selec tabla
public cod
set order to seh
cod=(thisform.combo1.value)+(thisform.text1.value)
seek(cod)
if found()then
set filter to cod=cod_cli + cod_sede
thisform.grid1.refresh
thisform.refresh
endif

que puedo cambiar
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

RE:busquedas

Publicado por Miguel (115 intervenciones) el 26/03/2008 18:54:39
public cod
selec tabla
set order to seh
cod=alltrim(thisform.combo1.value)+alltrim(thisform.text1.value)
seek (cod)
if found()then
set filter to cod=alltrim(cod_cli) +alltrim(cod_sede)
thisform.grid1.refresh
thisform.refresh
endif
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

RE:busquedas

Publicado por Jorge (422 intervenciones) el 26/03/2008 18:57:34
Hola
Intenta algo como esto:

ValorCombo=ThisForm.Combo1.Value
ValorTexto=thisForm.txtBox1.Value

ThisForm.Grid1.RecordSourceType=ALIAS

Select * from Tabla WHERE ValorCombo=Campo1 and ValorTexto=Campo2 INTO cursor tmpCur

if _tally >0
ThisForm.Grid1.RecordSource="tmpCur"
ThisForm.grid1.requery
endif

Prueba y comentas
Saludos
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

RE:busquedas

Publicado por marcelo (171 intervenciones) el 26/03/2008 21:17:22
es importante saber si los campos cod_cli y cod_sede son numericos
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