Filtrar un resultado en DBGRID desde dos combobox

[droguerman]

en el evento onChange de los combos:

Código Delphi [-]
with dbgrid.datasource.dataset do
begin
  filter := 'mes>='+IntToStr(cmbdesde.itemIndex+1)+ ' AND mes<='+IntToStr(cmbhasta.itemIndex+1);
filtered := true;
end;

[ZiriusB]

No me muestra resultado alguno en el dbgrid!

[[oscarac]]

me parece que en lugar de filtrar por el nombre del mes debes hacer un artificio para filtrar por el "numero" del mes

[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