![]() |
|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
![]() |
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
#1
|
|||
|
|||
![]() Добрый день, возникла проблема, есть таблица в которой хранятся заявки, в заявках есть ФИО исполнителя, есть одна форма и для отправления данных в БД и для редактирования данных из БД. Использую стандартные компоненты, так что DBLookUpComboBox мне подойдёт, данные в ComboBox выгружаю вот так:
Код:
ComboBox1.Clear; DMMain.oqueryuser1.Open; While not DMMain.OqueryUser1.EOF do Begin ComboBox1.AddItem(DMMain.oqueryuser1.FieldByName (‘FIO’).Asstring, TObject(DMMain.oqueryuser1.FieldByName(‘ID’).AsInteger)); DMMain.oqueryuser1.Next; Когда я нажимаю на главной форме кнопку редактировать перевожу DMMain.OqyeryZayvki в Edit , но мне нужно чтобы в комбобоксе отобразились данные записи которую редактируют, с другими компонентами по типу Edit и DateTimePicker я уже разобрался, а с ComboBoxом не могу, объясните пожалуйста. Последний раз редактировалось Admin, 26.10.2022 в 13:34. |
#2
|
|||
|
|||
![]() Так ты определись, будешь использовать простой ComboBox или все таки DBLookupComboBox. По твоему коду ты используешь обычный ComboBox. Тогда тебе просто надо искать нужную запись, что-то типа:
Код:
procedure TForm1.SetComboBoxValue(AComboBox : TComboBox; AID : Integer); var I : Integer; begin AComboBox.ItemIndex := -1; For I := 0 To AComboBox.Items.Count-1 Do If Integer(AComboBox.Items.Objects[i]) = AID Then Begin AComboBox.ItemIndex := I; Break; End; end; |