procedure TForm1.FormCreate(Sender: TObject);
begin
with adotable1 do
begin
while not eof do
begin
combobox1.Items.Add(fieldbyname('FIO).AsString);
next;
end;
end;
end;
Вставка таблицы в combobox & ...
Однажды видел такую вещь...на форме стоит combobox1, на него нажимаешь и открывается таблица. В раскрывающемся окне combobox'a стоят прокрутки, и непосредственно сама таблица, причём таблица ровно разделена на столбцы и каждый столбец выделен своим цветом. Ну и сам вопрос: как это сделано и с помощью какого элемента?
И другой вопрос: на данный момент у меня в combobox1 добавляется всего один столбец из таблицы
Проблема заклычается в том, если записи в combobox1 повторяются, то выбирается только первая запись (допустим две фамилии Иванов - он выбирет первую)
Выбираю я запись следующим образом
Понимаю, что сделано криво и без первичного ключа, однако может как-нить возможно определять какую запись я выбираю? Очень геморойно переделывать...
И другой вопрос: на данный момент у меня в combobox1 добавляется всего один столбец из таблицы
Код:
Проблема заклычается в том, если записи в combobox1 повторяются, то выбирается только первая запись (допустим две фамилии Иванов - он выбирет первую)
Выбираю я запись следующим образом
Код:
procedure TForm1.ComboBox1Select(Sender: TObject);
begin
combobox1.Update;
if ADotable1.Locate('FIO,combobox1.text,[]) then
begin
edit2.Text:=adotable1.Fields[1].AsString;
end;
end;
begin
combobox1.Update;
if ADotable1.Locate('FIO,combobox1.text,[]) then
begin
edit2.Text:=adotable1.Fields[1].AsString;
end;
end;
Понимаю, что сделано криво и без первичного ключа, однако может как-нить возможно определять какую запись я выбираю? Очень геморойно переделывать...
Можно "собирать" значение в ComboBox из нескольких полей, а при выборе значения ComboBox разделять его в соответствии с правилами "сборки"