Форум: "Базы";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.03.07;
Скачать: [xml.tar.bz2];




Вниз

Как отобразить список записей поля таблицы в combobox? 


Bormanoid   (2002-02-07 21:25) [0]

Очень признателен!



Gregory   (2002-02-08 08:35) [1]

Если DataSet уже есть (Query или Table, например), то используй DBLookupComboBox - там можно задать и отображаемое, и ключевое поля. Или:

with ComboBox1 do
begin
Items.Clear;
DataSet.First;
for i := 1 to DataSet.RecordCount do
begin
Items.Add( DataSet[ "<field to view>" ] );
DataSet.Next;
end;
end;



Johnmen   (2002-02-08 11:43) [2]

>Gregory :
with ComboBox1 do
begin
Items.Clear;
DataSet.First;
while not DataSet.Eof do
begin
Items.Add( DataSet[ "<field to view>" ] );
DataSet.Next;
end;
end;



Alexandr   (2002-02-08 11:50) [3]

дык это же один хер.
Просто в первом случае записи фетчатся сразу( при recordcount)
а во втором случае постепенно по мере next.

Другое дело, что некоторые компоненты доступа (к BDE это не относится) могут неправильно посчитать recordCount (по крайней мере пока FetchAll не сделать или Last). Но это частности.

Кстати, даже если компоненты будут считать RecordCount только отфетченных записей (так делает например FIBPlus), то первый вариант все равно выполнится правильно. Т.к. сначала RecordCount будет равен 1, а потом с каждым next он будет возрастать на 1, пока до конца выборки не дойдет.


Вот такой вот полный ответ.



Johnmen   (2002-02-08 11:57) [4]

>Alexandr © : А кто говорит, что неправильно ? Просто второй пример - более грамотно.



Alexandr   (2002-02-08 12:01) [5]

в чем выражается "более грамотно".
Можно в двух словах?



Johnmen   (2002-02-08 12:12) [6]

>Alexandr © :

1. сарказм неуместен
2. ...Другое дело, что некоторые компоненты доступа (к BDE это не относится) могут неправильно посчитать recordCount (по крайней мере пока FetchAll не сделать или Last). Но это частности...
3. не надо заводить i : integer;



Bormanoid   (2002-02-08 12:22) [7]

Как юзать OnChange событие в ComboBox в такой ситуации?
А как можно прочитать выбранный елемент?



Johnmen   (2002-02-08 12:31) [8]

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
Label1.Caption:=ComboBox1.Text;
end;



Alexandr   (2002-02-08 12:36) [9]

2Johnmen
понял. Вообщем согласен.



Bormanoid   (2002-02-08 12:37) [10]

Johnmen>
У меня в ComboBox не меняеться запись в ComboBox1? Как сменить при OnChange(на выбраную)?



Alexandr   (2002-02-08 12:40) [11]

Она сама изменится если у тебя у Combobox1 ReadOnly не стоит.



Bormanoid   (2002-02-08 12:49) [12]

У меня в ComboBox.ReadOnle:=false;



Alexandr   (2002-02-08 12:52) [13]

слушай, а компонент у тебя какой? Точно Tcombobox?



Bormanoid   (2002-02-08 12:55) [14]

Ой-ой-ой!
Блин!
У меня DBComboBox....



Alexandr   (2002-02-08 12:59) [15]

я так и думал..!



Bormanoid   (2002-02-08 12:59) [16]

Спасибо!
Я просто сменил DBComboBox на простой СomboBox и все ОКЕЙ.
Но почему же DBComboBox не меняет...



Alexandr   (2002-02-08 13:02) [17]

а потому что ты ему не задал кокое ему поле менять, он же значение из этого поля берет, а раз поля нет, то и выбранного значения нет.
Тут как говорится "No pay -no game"




Форум: "Базы";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.03.07;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.74 MB
Время: 0.026 c
1-19124           kaif                  2002-02-20 13:22  2002.03.07  
Знатокам ООП вопрос


1-19212           kserg@ukr.net         2002-02-19 11:28  2002.03.07  
Как установить новый компонент?


14-19296          Suntechnic            2002-01-19 00:24  2002.03.07  
Вот объясните мне неучу, что обсуждается вот в этом посте...


1-19151           DHJ                   2002-02-21 11:25  2002.03.07  
Есть DOS приложение. В его окно надо ввести цифру, нажав на клавиатуре.


1-19167           MaXie                 2002-02-20 12:34  2002.03.07  
Обработка исключительной ситуации...