Спасибо за пример, но я перепутал название чекбокса и комбобокса... мне нужно было комбобокса, извиняюсь. Но я придумал решение
procedure маршрутный_OnShow (Sender: TObject; Action: string);
begin
megan1:= SQLExecute('SELECT id FROM trainbook WHERE id_trip="'+idTrip+'" ORDER BY дата');
megan2:= SQLExecute('SELECT id FROM trainbook WHERE id_trip="'+idTrip+'" ORDER BY дата LIMIT 1,1');
megan3:= SQLExecute('SELECT id FROM trainbook WHERE id_trip="'+idTrip+'" ORDER BY дата LIMIT 2,1');
megan4:= SQLExecute('SELECT id FROM trainbook WHERE id_trip="'+idTrip+'" ORDER BY дата LIMIT 3,1');
megan5:= SQLExecute('SELECT id FROM trainbook WHERE id_trip="'+idTrip+'" ORDER BY дата LIMIT 4,1');
megan6:= SQLExecute('SELECT id FROM trainbook WHERE id_trip="'+idTrip+'" ORDER BY дата LIMIT 5,1');
megan7:= SQLExecute('SELECT id FROM trainbook WHERE id_trip="'+idTrip+'" ORDER BY дата LIMIT 6,1');
megan8:= SQLExecute('SELECT id FROM trainbook WHERE id_trip="'+idTrip+'" ORDER BY дата LIMIT 7,1');
megan9:= SQLExecute('SELECT id FROM trainbook WHERE id_trip="'+idTrip+'" ORDER BY дата LIMIT 8,1');
маршрутный.ComboBox1.dbFilter := 'id_trip="'+idTrip+'"';
маршрутный.ComboBox1.dbItemID:= megan1;
маршрутный.ComboBox1.dbUpdate;
маршрутный.ComboBox2.dbFilter := 'id_trip="'+idTrip+'"';
маршрутный.ComboBox2.dbItemID:= megan2;
маршрутный.ComboBox2.dbUpdate;
маршрутный.ComboBox3.dbFilter := 'id_trip="'+idTrip+'"';
маршрутный.ComboBox3.dbItemID:= megan3;
маршрутный.ComboBox3.dbUpdate;
маршрутный.ComboBox4.dbFilter := 'id_trip="'+idTrip+'"';
маршрутный.ComboBox4.dbItemID:= megan4;
маршрутный.ComboBox4.dbUpdate;
маршрутный.ComboBox5.dbFilter := 'id_trip="'+idTrip+'"';
маршрутный.ComboBox5.dbItemID:= megan5;
маршрутный.ComboBox5.dbUpdate;
маршрутный.ComboBox6.dbFilter := 'id_trip="'+idTrip+'"';
маршрутный.ComboBox6.dbItemID:= megan6;
маршрутный.ComboBox6.dbUpdate;
маршрутный.ComboBox7.dbFilter := 'id_trip="'+idTrip+'"';
маршрутный.ComboBox7.dbItemID:= megan7;
маршрутный.ComboBox7.dbUpdate;
маршрутный.ComboBox8.dbFilter := 'id_trip="'+idTrip+'"';
маршрутный.ComboBox8.dbItemID:= megan8;
маршрутный.ComboBox8.dbUpdate;
маршрутный.ComboBox9.dbFilter := 'id_trip="'+idTrip+'"';
маршрутный.ComboBox9.dbItemID:= megan9;
маршрутный.ComboBox9.dbUpdate;
end;
но только осталось маленькая дороботка. Мой скрипт нормально работает при первом открытии формы. Если открыть уже другую запись, то будет пусто, если второй раз опять её открыть то он сработает. То есть приходится открывать, закрывать и опять открывать что бы всё работало. Как исправить?