Filtrar un resultado en DBGRID desde dos combobox

[Neftali [Germán.Estévez]]

Aquí tienes un ejemplo de cómo realizar filtros sobre un Grid. Es ente caso se usa un exto de un Edit, pero la mecánica es la misma si el valor sale de un combo.

[ecfisa]

Hola.

Lo que lleva rato diciendo oscarac y ahora ratifica JoseAntonio lo dice todo: El algorítmo es correcto, pero no es aplicable a este caso...

Se me escapó el carácter ordinal de los nombres de los meses que no es precisamente el alfabético...

Una idea que se me ocurre (y no es la mejor por que ensucias la tabla), es agregar un campo 'NroMes' de tipo numérico que se
corresponda con el mes del registro.

En el DBGrid deberías agregar todas las columnas menos la correspondiente a ese campo, luego podrías hacer:

Código Delphi [-]
...
function MesANro(Mes: string): Integer;
const 
   Nombre: array[1..12] of string=('ENERO','FEBRERO','MARZO','ABRIL','MAYO',
  'JUNIO','JULIO','AGOSTO','SEPTIEMBRE','OCTUBRE','NOVIEMBRE','DICIEMBRE');
var
  i: Byte;
begin
  i:= 1;
  while Nombre[i] <> UpperCase(Mes) do Inc(i);
  Result:= i;
end;

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
  with DBGrid1.DataSource do
  begin
    DataSet.Filtered:= False;
    DataSet.Filter:= 'NroMes >= '+
            QuotedStr(IntToStr(MesANro(ComboBox1.Items[ComboBox1.ItemIndex])))+
                     ' AND NroMes <= '+
            QuotedStr(IntToStr(MesANro(ComboBox2.Items[ComboBox2.ItemIndex])));
    DataSet.Filtered:= True;
  end;
end;

No es "la" solución, pero no se me ocurre otra cosa usando filtros.


Un saludo.

[ZiriusB]

Ok adopte una mejor opcion y mas rapida, luego pruebo con los nombres...

Me fui por los Numeros, una cosa que quiero dejar clara es que yo no tomo los valores de la base de datos para cargarlos a los Combobox, en la Propiedad ITEMS ahi coloco (1,2,3,4,5,6,7,8,9,10,11,12) ya que es una tabla en donde van a ir varios trabajadors con el mismo mes.

Lo cambie a numeros y todo bien hasta cierto punto...Al seleccionar del mes 1 al mes 11 me selecciona solo (1,11,12) supongo que solo esta tomando el primer numero "1" al seleccionar del mes 2 al mes 12,11 o 10 no me muestra resultados sin embargo si selecciono del mes 2 al 9 si me hace bien la busqueda!

Gracias por su ayuda, la aprecio mucho...

[[oscarac]]

mmm
entonces el campo no es entero, debe ser de tipo caracter por eso no te funciona

[ZiriusB]

Pues si, de hecho con tantas cosas en la cabeza no guarde el cambio que hice a Entero! por eso aun no lo tomaba...gracias, resuelto!!

Un millon por sus opiniones y ayuda! fueron un gran impulso!

[zeta2]

Muchachos, he querido filtrar un dblookupcombobox y me sale un error. me llama la atención por que lo he hecho tantas veces y ahora no me sale, no se si se me está pasando algo...

Les envío el código y el mensaje de error...

procedure TFBuscar.DBLCBCargoClick(Sender: TObject);
begin
 FPrincipal.TBCargos.Open;
 FPrincipal.TBCargos.Filter:= 'Cátedra o Cargo =' +QuotedStr(DBLCBCargo.Text);
 FPrincipal.TBCargos.Filtered:= True;
 DBLCBIDSARH.Enabled:= True;
end;

El mensaje de error que me sale es:

TBCargos: Field 'C' not found.

FPrincipal: Formulario principal donde se encuentra el ttable.
TBCargos: Ttable
DBLCBCargo: dblookupcombobox donde programo el evento
DBLCBIDSARH: otro dblookupcomboboxque sólo habilito cuandoya se hizo el fintrado.

Gracias por su tiempo...
Saludos.

[[oscarac]]

el campo de tu tabla tiene acentro? Cátedra????

no estoy seguro (porque no uso filtros)... pero no creo que el operador logico "o" exista en delphi

Prueba asi

Código Delphi [-]
procedure TFBuscar.DBLCBCargoClick(Sender: TObject);

FPrincipal.TBCargos.Filter:= 'Catedra =' +QuotedStr(DBLCBCargo.Text) + ' or Cargo =' +QuotedStr(DBLCBCargo.Text) 
end;