Código para realizar una búsqueda en un grid, donde si no encuentra el resultado por capo1, realizarla por campo2, o campo3

Tengo un formulario donde tengo un grid con información la cual deseo realizar un filtro progresivo, por determinado campo, si no haya respuesta realizarla por otro campo. Deseo efectuar esta búsqueda hasta por cuatro campos.

1

1 respuesta

Respuesta
1

1. Opción

Select Select(1)
Select * From <MiTabla> where <Campo1>=<ValorBuscado> or ;
   <Campo2>=<ValorBuscado> or <Campo3>=<ValorBuscado> or ;
   <Campo4>=<ValorBuscado> Into Cursor csrResultado
Browse
Return

2. Opción

local cTabla, cCampos, nX, cFldact
cTabla  = <NombreDeLaTabla>
cCampos = "Campo1;Campo2,Campo3,Campo4" && Nombre de los campos.
for nX=1 to 4
    cFldact = getwordnum(cCampos,nX,";")
    Select Select(1)
    Select * From (cTabla) where <ValorBuscado>$&cFldact ;
        Into Cursor csrResultado
    If _Tally>0
        exit
    Endif
    cTabla = csrResultado
Next
Select csrResultado
Browse 
Return

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas