combobox and dbGrid

[Lady Meri]

Всем привет! у меня на форме находится комбобокс ,грид, АДОтабл,АДО конекшен,АДОдата соурс. мне нужно связать комбобокс с гридом. таким образом ,чтобы при выборе из выпадающего списка комбы в гриде отображалась нужная информация . мне нужен код в большей степени

[Gulik]

Что за новый компонент "АДОдата соурс"???
Вообще такое уже обсуждалось, вам бы поиском воспользоваться...
Или пришли исходники на мой ящик gulik.v@bk.ru и я тебе помогу...

[Gulik]

Вот ссылка на исправленный проект Скачать

[GoodDA]

procedure loadlist(q:tadoquery;sq:string;lst: tstringlist);
begin
q.active := false;
q.sql.text:=sq;
q.active:=true;
while not q.eof do
begin
lst.addobject(q.fields[0].asstring,pointer(q.fields[1].asinteger));
q.next;
end;
end;



заполняем комбобокс
loadlist(adoquery1,'select id, fio from people',combobox1.items);



вытаскиваем из комбобокса код выбранной записи
код := integer(combobox1.items.objects[combobox1.itemindex]);

потом по коду фильтровать записи в таблице
AdoTable1.filtered:=false;
AdoTable1.filter := ' поле='+inttostr(код);
AdoTable1.filtered:=true;

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