Filtrar un resultado en DBGRID desde dos combobox

[ecfisa]

Hola.

Código Delphi [-]
....
procedure TForm1.FormShow(Sender: TObject);
begin
  ComboBox1.ItemIndex:= 0;
  ComboBox2.ItemIndex:= ComboBox2.Items.Count -1;
end;

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

Por supuesto funciona si en los combos tenés los nombres de los meses y asignas ComboBoxChange al evento OnChange de los dos combos...

Un saludo.

[ZiriusB]

Muchas gracias por su ayuda, hice exactamente lo que me dijiste...le asigne Comboboxchange a ambos comobox, y ajuste el codigo a mi proyecto...Sin embargo los resultados no se ajustan a lo que quiero! Explico:

Si Selecciono ENERO y DICIEMBRE no me muestra resultados...

Si selecciono ENERO y NOVIEMBRE me muestra solo algunos resultados (ENERO, FEBRERO, MARZO, MAYO, JULIO, JUNIO, NOVIEMBRE) aun cuando también tengo ABRIL, DICIEMBRE en mis registros...

¿A que podría deberse?

[[oscarac]]

no lo se no he podido hacer pruebas
pero me parece que deberias hacer el filtro por numero de mes en lugar de nombre de mes salvo error u omision

[ecfisa]

Hola ZiriusB.

Es realmente extraño, a mí me funciona correctamente esté o no la columna ordenada alfabéticamente...
La prueba la realizé sobre Firebird, pero para estar seguro que trabajemos sobre los mismos datos y no sé que BD estás usando,
el código lo ajusté a la tabla Country (DBDDEMOS) ya que viene con Delphi.

Te adjunto la prueba para que puedas realizar las comprobaciones necesarias y si encontras algún caso en que no se cumpla la condición
del filtro, lo vemos en concreto.

Un saludo.

[JoseAntonio]

es un problema de mal diseño, si quieres hacer un filtro por mes, debes definir dicho campo (en tu base de datos) como entero, si lo defines como cadena, el filtro no funcionara por que al hacer el filtro el componente dataset no sabra que 'MARZO' < 'ABRIL' puesto que el componente hace la comparacion por orden alfabetico cuando se trata de cadenas, suerte, salu2

[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.