DbLookupComboBox

← →
caesar (2003-03-31 16:47) [0]

Помогите! Не могу понять как в DbLookupComboBox сделать поле пустым? Cвойство Text использовать нельзя т.к. оно только для чтения а ListFieldIndex по видимому не тоже самое что и ItemIndex в ComboBox? Просто необходимо чтобы была возможность сделать поле пустым!

← →
Соловьев © (2003-03-31 16:50) [1]

В справочной таблице добавить такое поле. Или надо NULL???

← →
Johnmen © (2003-03-31 16:50) [2]

KeyValue:=Null; что-то типа того...:)

← →
Жук © (2003-03-31 16:52) [3]

procedure TFPrinc2.DBLookupComboBox3KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if Key=VK_DELETE then FDM.ListOut.FieldByName("id_fabrika").Clear; end;

← →
caesar (2003-04-01 08:18) [4]

а что такое FDM?

← →
Жук © (2003-04-01 08:22) [5]

Я вам код вырвал из свей проги. :-)
FDM - DataModule, а ListOut - TIBDataSet - источник данных для DBLookupComboBox3.

← →
caesar (2003-04-01 08:38) [6]

Выдается ошибка Dataset not in edit or insert mode. И вообще у меня для DBLookupComboBox нет источника данных, есть только источник строк, а здесь это не одно и то же:-) Или может я не понял?

← →
Жук © (2003-04-01 08:42) [7]

Если нет источника, тогда DBLookupComboBox1.KeyValue:=nil

← →
caesar (2003-04-01 08:50) [8]

Использую следующую процедуру:
procedure TForm1.ComboBox1Change(Sender: TObject);
begin
if ComboBox1.Text = "порожний" then
begin
AdoTable3.Active:= False;
end
else begin
AdoTable3.Active:= True;
end;
end;
Здесь AdoTable3 ListSource для DBLookupComboBox. Мне нужно чтобы когда я выбираю в ComboBox1 "порожний" DBLookupComboBox становилось пустым. Суйчас я просто обрубаю таблицу, но это не выход т.к. если у меня в ComboBox1 стоит "груженный" и в DBLookupComboBox я выбрал груз, то если я меняю ComboBox1 на "порожний", а потом опять на "груженный", то в DBLookupComboBox появляется то значение которое я выбрял раньше.
Хотя при перезапуске оно пустое :-)!

← →
caesar (2003-04-01 08:55) [9]

Огромное спасибо! Только KeyValue:= "" , а не nil т.к. в если использовать nil то выдается ошибка несовместимости типов! :-)

попробуй KeyValue:=-1
у меня прокатывает

> KeyValue:= "" , а не nil т.к. в если использовать nil то
> выдается ошибка несовместимости типов! :-)

> Johnmen © (31.03.03 16:50)

DbLookupComboBox Найти похожие ветки