FoxPro/Visual FoxPro - Ayuda con combobox

   
Vista:

Ayuda con combobox

Publicado por Fredy (Paraguay) (145 intervenciones) el 29/07/2008 15:48:44
Mis saludos cordiales a los maestros del visual foxpro, sequidamente quiero hacerles una consulta.
Conste que estoy desarrollando mi aplicacion y las tablas menores quiero cargar en combox o cuadro combinado, pasa que necesito hacer la busqueda incremental y lo que trae el visual foxpro no me funciona como lo deseo. En generador de cuadros combinados le marco la opcion combinado desplegable y activar la busqueda incremental, pero no lo hace muy dinamico. Necesito que, por ejemplo, al escribir en el cuadro combinado el nombre del producto, me vaya mostrando y recuperando la informacion, está ordenado por descripcion claro.

Les agradecere la ayuda

Atte
Fredy Ayala
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 con combobox

Publicado por Saul (El Guatemalteco...) (676 intervenciones) el 29/07/2008 20:44:30
Yo tengo una pantalla de esas mande un mail yte lo reenvio..

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:Ayuda con combobox

Publicado por HELDER MARTINEZ (710 intervenciones) el 29/07/2008 21:00:32
**ASI****QUE TE MUESTRE LA INFORMACION EN GRID***

Public cBuscar
cBuscar=ALLTRIM(thisform.pagfClientes.page3.txtBuscar.Value)

Select tabla
SET FILTER TO UPPER(ALLTRIM(cBuscar))$UPPER(campo)
GO TOP
thisform.pagfClientes.page3.grdClientes.RecordSource ="tabla"
thisform.pagfClientes.page3.grdClientes.column1.ControlSource ="tabla.campo"

**************************************************
*****BUSQUEDA QUE TE MUESTRA LOS RESULTADOS EN EL MISMO COMBO***
*********************

PUBLIC nUltimaTecla, nMostrarValor, nUltimoValorMostrado,;
nUltimaSeleccion, nSeleccionados

SELECT TABLA
lnUltimaTecla = LASTKEY()
lcUltimoValorMostrado = ""
lnUltimaSeleccion = 0
lnSeleccionados = 0
**

IF (lnUltimaTecla >= 32 AND lnUltimaTecla <= 126)
IF THIS.SELSTART >= 1
lcMostrarValor = SUBSTR(THIS.DISPLAYVALUE,1,THIS.SELSTART-1)+(CHR(lnUltimaTecla))
ELSE
lcMostrarValor = (CHR(lnUltimaTecla))+ALLT(THIS.DISPLAYVALUE)
ENDIF
IF EMPTY(lcMostrarValor)
lcMostrarValor = ALLT(CHR(lnUltimaTecla))
ENDIF
FOR i = 1 TO THIS.LISTCOUNT
IF UPPER(lcMostrarValor) = UPPER(SUBSTR(THIS.LIST(i),1,LEN(lcMostrarValor)))
THIS.DISPLAYVALUE = THIS.LIST(i)
IF LEN(ALLT(THIS.DISPLAYVALUE)) > LEN(lcMostrarValor)
THIS.SELSTART = LEN(lcMostrarValor)
THIS.SELLENGTH = LEN(ALLT(THIS.DISPLAYVALUE))-LEN(lcMostrarValor)
ENDIF


lcUltimoValorMostrado = THIS.DISPLAYVALUE
lnUltimaSeleccion = THIS.SELSTART
lnSeleccionados = THIS.SELLENGTH
RETURN
ENDIF
ENDFOR

THIS.DISPLAYVALUE = lcUltimoValorMostrado
THIS.SELSTART = lnUltimaSeleccion
THIS.SELLENGTH = lnSeleccionados
ENDIF

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

SALUDES
DESDE HONDURAS.
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:Ayuda con combobox

Publicado por Fredy (Paraguay) (145 intervenciones) el 29/07/2008 21:59:11
Gracias amigo, te agradezco por la ayuda.

Atte.
Fredy Ayala
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:Ayuda con combobox

Publicado por Fredy (Paraguay) (145 intervenciones) el 29/07/2008 22:00:21
Gracias amigo, te agradezco por la ayuda.

Atte.
Fredy Ayala
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