Filtrar 3 veces una grilla

[ecfisa]

Hola giulichajari

Empezado por giulichajari

Y con respecto a los componentes: si tengo un Clientdataset : no es mejor filtrar este y no el query asociado?

Siendo sincero no entiendo todos los pormenores como para aconsejarte el uso de uno u otro, pero el filtrado equivalente al anterior sobre el ClientDataSet, sería algo así:

Código Delphi [-]
...
var
  s: string;
begin
  with ClientDataSet1 do
  begin
    Filtered := False;
    s := EmptyStr;
    if Edit1.Text <> EmptyStr then
      s := s + ' AND OTRO_CAMPO = ' + QuotedStr( Edit1.Text );
    Filter   := Format( 'KEY_FIELD_1 = %s AND KEY_FIELD_2 = %s %s', 
      [ QuotedStr( DBLookupComboBox1.KeyValue ), QuotedStr( DBLookupComboBox2.KeyValue ), s ] );
    Filtered := True;
  end;
end;

Eso si, en este caso, los campos KEY_FIELD_1, KEY_FIELD_2 y OTRO_CAMPO deberán estar incluidos en el SELECT de la consulta.

Saludos

[giulichajari]

Lo que estuve leyendo es que es bueno aplicar rangos. Luego de que el dataset de productos tenga el rango de subcategoria aplicar el filtro por nombre para los productos de esa subcategoria. Ejecutar la consulta de vuelta tiene una sobrecarga, por eso no modifico el query, aparte trabajo sin conexion. Ademas filtrar por varios campos supone aplicar la subcategoria y el nombre de vuelta, de la otra forma se hace solo por los registros ya filtrados

[ecfisa]

Hola giulichajari.

Empezado por giulichajari

Lo que estuve leyendo es que es bueno aplicar rangos. Luego de que el dataset de productos tenga el rango de subcategoria aplicar el filtro por nombre para los productos de esa subcategoria.

Así es, aunque los rangos tienen algunas limitantes:

• Están basados en índices, y la/las columnas a que se apliquen deberán estar indizadas y dicho índice activo.
• Solo se puede definir rangos sobre una columna (índice) en un momento dado, si bién esto se soluciona usando combinaciones rango/filtro.

Si estas interesado por profundizar el tema, recuerdo que La cara oculta de Delphi 4, dedica unas cuantas páginas a tratarlo de manera clara y con ejemplos.

Saludos

[giulichajari]

Ya se puede marcar el tema como resuelto y gracias ecfisa:

Código Delphi [-]

procedure TForm1.DBLookupComboBox1Exit(Sender: TObject);
begin
if DBLookupComboBox1.KeyValue<>null then
 begin
    with ClientModule1.cdssubcat do
    begin
          begin
            IndexFieldNames:='idcategoria';
            SetRange([DBLookupComboBox1.KeyValue],[DBLookupComboBox1.KeyValue]);

          end;

    end;
 end;

end;

procedure TForm1.DBLookupComboBox2Click(Sender: TObject);
begin
 with ClientModule1.cdsprod do
              begin
                  IndexFieldNames:='idsubcategoria';
                  SetRange([DBLookupComboBox2.KeyValue],[DBLookupComboBox2.KeyValue]);

              end;
end;

procedure TForm1.EnombreChange(Sender: TObject);
begin
   if DBLookupComboBox2.KeyValue<>null then
       begin
          with ClientModule1.cdsprod do
            begin

              Filtered:=False;
              Filter:='nombre LIKE ''' +'%'+Enombre.Text+'*''' ;

              Filtered:=True;

            end;
      end;
end;

Ademas se podria mostrar en orden alfabetico por marca por ejemplo o por precio.

Lo unico que me gustaria es en vez de un combo un edit que se despliegue... auunque se puede escribir encima del combo y se filtra.