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.