Издевался над таблицей KLASS где есть два поля - NUM_KLASS и UCHASHIESYA (у вас они похоже в разных местах лежат)
Сначало добавил пару ADOQuery и столько же DataSource, подключил их к DBLookupCombobox: для первого KeyFiled = NUM_KLASS, для второго поле с учениками (условно UCHASHIESYA). При запуске код такой
Код:
...
AdoQuery1.SQL.Add('select distinct NUM_KLASS from KLASS union select NUM_KLASS from KLASS order by NUM_KLASS');
AdoQuery2.SQL.Add('select * from KLASS');
AdoQuery1.Open;
AdoQuery2.Open;
... ну и клик по первому комбо
Код:
procedure TfrmMain.DBLookupComboBox1Click(Sender: TObject);
begin
AdoQuery2.Close;
AdoQuery2.SQL.Clear;
AdoQuery2.SQL.Add('select * from KLASS where NUM_KLASS=''' + (Sender as TDBLookupComboBox).Text + '''');
AdoQuery2.Open;
end; Проверил - работает