DBGrid и ComboBox

[chex01]

Доброго времени суток!
Есть DBGrid и ComboBox, и ... ээээ ... короче вот такое:

Как сделать так что бы в ComboBox заносились данные из поля год(не повторяясь при этом), а при нажатии в свою очередь на год в ComboBox'Е, в DBGrid оставались(отображались) записи только с этим годом?

[xrob]

Как в ComboBox заносились данные

combobox1.Items.Add('данные');

(не повторяясь при этом)

ну видимо пишем свою процедуру для удаления повторов...

а при нажатии

OnClick?..

в ComboBox'Е

ну тогда OnSelect...

оставались записи только с этим годом

поскольку мне кажется что нет в DBGrid функции "Оставить запись",
то видимо очищаем DBGrid и заносим в него записи, удовлетворяющие условию.

можно сделать два DBGrid, один хранит ВСЕ данные и остается невидимым,
а другой показывает только те данные, которые нужно, например, с этим годом...

[chex01]

Чё то Ты намудрил, при этом не дав ответ на мой вопрос(

Примерно то что мне нужно я нашёл: ЗДЕСЬ, но там фиксированные данные, т.е. если добавлять ещё данные в поля, они всё равно в КомбоБоксе не появятся.

[pusik]

var
i,j:integer;
 	 	begin
    i:=1;
    j:=DataModule2.Specialnosti.DataSet.RecordCount;
 		DataModule2.Specialnost.First;
	form3.DBGrid1.Columns[3].PickList.text:=DataModule2.Specialnost.FieldByName('Код специальности').Value;
  			for i:=2 to j do
    			begin
    			 DataModule2.Specialnost.next;
           form3.DBGrid1.Columns[3].PickList.text:=form3.DBGrid1.Columns[3].PickList.text+DataModule2.Specialnost.FieldByName('Код специальности').Value;
       end;
       end;

попробуй использовать эту процедурку

var
i,j:integer;
begin
i:=1;
j:=указываешь источник данных для выпадающего списка .RecordCount;
указываешь источник данных для выпадающего списка .First;
Combox1.PickList.text:=указываешь источник данных для выпадающего списка .FieldByName('наименование колонки в которой находятся данные).Value;
for i:=2 to j do
begin
указываешь источник данных для выпадающего списка.next;
Combox1.PickList.text:=form3.DBGrid1.Colum ns[3].PickList.text+указываешь источник данных для выпадающего списка.FieldByName('наименование колонки в которой находятся данные').Value;
end;
end;

[Gulik]

Пиши в асю помогу... только тут потом код выложи... для новичков...

[chex01]

На ComboBox1Change:

   if ComboBox1.Text <> '' then begin
      ADOQuery1.SQL.Text := 'SELECT * FROM `Доход` WHERE (`id магазина` = ' + ADOTable1id.AsString + ') AND (год = ' + ComboBox1.Text + ') ORDER BY Месяц' ;
      ADOQuery1.Open ;
   end
   else begin
      ADOQuery1.SQL.Text := 'SELECT * FROM `Доход` WHERE `id магазина` = ' + ADOTable1id.AsString + ' ORDER BY Месяц' ;
      ADOQuery1.Open ;
   end ;

На DBGrid3CellClick:

   if ComboBox1.Text <> '' then begin
      ADOQuery1.SQL.Clear;
      ADOQuery1.SQL.Add('SELECT * FROM `Доход` WHERE (`id магазина` = ' + ADOTable1id.AsString + ') AND (год = ' + ComboBox1.Text + ')');
      ADOQuery1.SQL.Add('ORDER BY Месяц');
      ADOQuery1.Close;
      ADOQuery1.Open;
   end
   else begin
      ADOQuery1.SQL.Clear;
      ADOQuery1.SQL.Add('SELECT * FROM `Доход` WHERE `id магазина` = ' + ADOTable1id.AsString );
      ADOQuery1.SQL.Add('ORDER BY Месяц');
      ADOQuery1.Close;
      ADOQuery1.Open;
   end ;

   ADOQuery2.SQL.Clear;
   ADOQuery2.SQL.Add('SELECT * FROM `Затраты` WHERE `id магазина` = ' + ADOTable1id.AsString );
   ADOQuery2.SQL.Add('ORDER BY `Месяц учета`');
   ADOQuery2.Close;
   ADOQuery2.Open;

Ещё раз спасибо Тебе Gulik!!!

[rdama]

Люди, а фильтры? Есть такой чудесный метод Filter.
А Distinct для построения списка годов.