Сам нашел.
Вот пример:
//Первый фильтр
procedure TFinanse2.ComboBox5Change(Sender: TObject);
begin
ComboBox6.Text := '';
Table4.Filtered := False;
Table4.Filtered := True;
if (ComboBox5.Text = '') and (Table4.Active = True) then Table4.Active := False;
if (ComboBox5.Text <> '') and (Table4.Active = False) then Table4.Active := True;
Table4.Filter := 'Kontragent=''' + ComboBox5.Text+'''';
end;
//второй фильтр
procedure TFinanse2.ComboBox6Change(Sender: TObject);
begin
if ComboBox5.Text = '' then Exit;
if Combobox6.Text = 'Только готовые' then Label33.Caption := 'Готов';
if Combobox6.Text = 'Только "В работе"' then Label33.Caption := 'В работе';
with Table4 do begin
Filtered := False;
Filter := 'Gotov=''' + Label33.Caption+'''';
Filtered := True;
end;
Можно добавлять следующие фильтры по тому же алгоритму, что и второй фильтр.
|