|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
||||
|
||||
ComboBox и таблица
Подскажите плиз начинающему.
Есть Таблица с данными. Как заставить ComboBox видеть 1 колонку, чтобы при нажатии выпадали все данные с первой колонки. Можно просто код или объяснение. Плизз |
#2
|
||||
|
||||
Цитата:
Всмысле, что значит есть таблица с данными? Таблица в БД? Если да то тебе нужен LoockComboBox, или "ручками" грузить данные из датасэта в ComboBox. --------------------------------------------- Программирование - не профессия, а стиль жизни |
#3
|
||||
|
||||
Да таблица в БД, ручками бы я загрузил
В проге в данную таблицу подгружаются новые строки и вот их тоже должен видеть КомбоБокс Если можно простейший код с пояснениями, я пойму Как понимаю все данные Комбобокса находятся в Items, туда можно забить ручками, а вот програмно как? Последний раз редактировалось cam777, 16.11.2007 в 12:10. |
#4
|
||||
|
||||
Цитата:
Я имею ввиду под "ручками", то что для загрузки данных код надо писать! Ну вот так: Код:
... qQuery - твой датасэт(привязаный к таблице) while (not qQuery.Eof) do begin ComboBox.Items.Add(qQuery.FieldByName('имя_поля_таблицы').AsString); qQuery.Next(); end; ... Вот и всё --------------------------------------------- Программирование - не профессия, а стиль жизни |
#5
|
||||
|
||||
Я пишу почти тоже самое, тока ниче не получается:
var I: Integer; begin Form1.ReqOpen(Sender); //открываем Table1 Form1.Table1.First; for I := 0 to Form1.Table1.RecordCount-1 do begin ComboBox1.Items.Add(Form1.Table1.FieldByName('Name ').AsString); Form1.Table1.Next; end; Form1.Table1.Close; end; что неправильно? |
#6
|
|||
|
|||
После Name убери пробел. У меня всё работает.
Код:
procedure TForm1.Button1Click(Sender: TObject); var I: Integer; begin Table1.First; for I := 0 to Form1.Table1.RecordCount-1 do begin ComboBox1.Items.Add(Table1.FieldByName('Name').AsString); Form1.Table1.Next; end; end; |