[St_K]

Доброго времени суток. Имеется база данных Access через ADO. На форме DBGrid и Combobox. В таблице есть поле год, по которому надо проводить фильтрацию, т.е. в combobox выбираешь нужный год, и в DBGrid отображаются только проекты выбранного года. Код следующий:

Код:

procedure TForm1.ComboBox1Change(Sender: TObject);
begin

if ComboBox1.Text<>'Выбрать год' then
DataModule2.ADOQuery1.Filter:='Год='+QuotedStr(ComboBox1.Text) else
DataModule2.ADOQuery1.Filter:='';

end;

Все бы ничего, вот только в combobox каждый год отображается столько раз, сколько записей о нем в таблице. Как сделать, чтобы каждый год отображался только один раз и при этом фильтр работал?

[Black Raider]

А код которым Combobox заполняете можно?

[Assistant]

используйте при заполнении проверку

Код:

ComboBox1.Items.IndexOf('значение') > -1

- то запись уже есть в ComboBox

[St_K]

Сообщение от Black Raider

А код которым Combobox заполняете можно?

Код:

procedure TForm1.FormActivate(Sender: TObject);
begin
ComboBox1.Clear;
ComboBox1.Items.Add('Выбрать год');
DataModule2.ADOQuery1.First;
while not DataModule2.ADOQuery1.Eof do
begin
  ComboBox1.Items.Add(DataModule2.ADOQuery1.FieldByName('Год').AsString);
  DataModule2.ADOQuery1.Next;
end;
DataModule2.ADOQuery1.First;
ComboBox1.Text:='Выбрать год';
end;

[TOJluK]

Луче запрос покажи.

[Assistant]

Код:

procedure TForm1.FormActivate(Sender: TObject);
var
  year: string;
begin
  ComboBox1.Clear;
  ComboBox1.Items.Add('Выбрать год');
  DataModule2.ADOQuery1.First;
  while not DataModule2.ADOQuery1.Eof do
  begin
    year := DataModule2.ADOQuery1.FieldByName('Год').AsString;
    if (ComboBox1.Items.IndexOf(year) = -1) then
      ComboBox1.Items.Add(year);

    DataModule2.ADOQuery1.Next;
  end;
  DataModule2.ADOQuery1.First;
  ComboBox1.Text := 'Выбрать год';
end;

но лучше конечно Год выбирать отдельным запросом с DISTINCT, примерно так:

Код:

SELECT DISTINCT Год FROM Таблица ORDER BY Год

или

Код:

SELECT Год FROM Таблица GROUP BY Год

[St_K]

Огромное спасибо!)