![]() |
|
#9
|
||||
|
||||
![]() Все, сделал)) Может конечно это и не оптимальный вариант, но главное работает. Напишу детали, вдруг кому пригодится.
На форму кинул DBGrid, DBLookupComboBox, 2DataSource и 2ADOTable; Связал их DBLookupComboBox1>>DataSource2>>ADOTable2 DBGrid1>>DataSource1>>ADOTable2; Прописал connectionstring у обоих ADOTable и указал у них соответствующие tablename. У ADOTable1 это таблица "Студенты", а ADOTable2 это таблица "Группы"; У DBLookupComboBox указал keifield(по этому значению будет фильтрация в таблице, в моем случае это id) и listfield(это будет отображаться в списке DBLookupComboBox, у меня это nam), у него же по клику прописал следующий код: Код:
procedure TForm3.DBLookupComboBox1Click(Sender: TObject); begin ADOTable1.filter:='id_gr=' + ADOTable2.fields.fields[0].AsString; ADOTable1.filtered:=true; end; Может где-то написал тупость, т.к. плохо знаю терминологию, так что если что извиняйте)) СПАСИБО ВСЕМ КТО ПЫТАЛСЯ МНЕ ПОМОЧЬ!!! Последний раз редактировалось PATRIOT.34, 03.11.2014 в 19:22. |