TcxDBLoockupComboBox

← →
MV (2008-05-30 11:46) [0]

Добрый день!
Есть таблица в которой два слолбца (ID, Name).
Как можно сделать, чтобы при выборе Name из списка TcxDBLoockupComboBox в DBGrid попадало значение ID? Или можно создать псевдоним для ID?

← →
Stas © (2008-05-30 12:20) [1]

че-то непонятноописано

← →
MV (2008-05-30 12:22) [2]

Все. вопрос решен.
Свойства ListFieldNames, KeyFieldNames

← →
MV (2008-05-30 16:06) [3]

А кто знает как отловить выбор конкретной строки из списка?

← →
Stas © (2008-05-30 16:20) [4]

EditValue?

← →
Ega23 © (2008-05-30 16:26) [5]

> А кто знает как отловить выбор конкретной строки из списка?

По-идее, это изменение позиции курсора в НД.

← →
MV (2008-05-30 16:28) [6]

if LookupComboBox.EditValue := "значение" then.... ??

← →
MV (2008-05-30 16:29) [7]

> По-идее, это изменение позиции курсора в НД.

Как?

← →
Stas © (2008-05-30 16:29) [8]

LookupComboBox.EditValue - содержит значения ключевого поля.

← →
Stas © (2008-05-30 16:31) [9]

Или нужно знать момент когда выбрали запись?

← →
MV (2008-05-30 16:41) [10]

Или нужно знать момент когда выбрали запись?

Т.е. если из списка выбрана эта запись то....

← →
Stas © (2008-05-30 16:42) [11]

Событие Properties.OnChange ?

← →
MV (2008-05-30 16:46) [12]

> Событие Properties.OnChange ?

туда писать LookupComboBox.EditValue ?

← →
MV (2008-05-30 16:51) [13]

procedure TfmHBAgentPointBlockMainRec.BuildMessageTask; var TypeWorks :string; sSetLimit :string; sSetComission :string; sDateTaskComplite : String; begin if deDBEndDate.EditText <> "" then sDateTaskComplite := deDBEndDate.EditText else sDateTaskComplite :=""; TypeWorks := " текст "; if not (sRec.DataSet.State in [dsEdit, dsInsert]) then sRec.DataSet.Edit; if LookupComboBox.......... then sRec.DataSet.FieldByName("MESSAGE_TASK").Value := TypeWorks + dsBankList.Fields.FieldByName("BANKNAME").AsString + " c "+sDateTaskComplite +" текст."; end;

В соответствии с выбранным значением из списка должно меняться сообщение. Как-то так.

← →
Stas © (2008-05-30 16:54) [14]

1. на событие Properties.OnChange вставте вашу процедуру
2. в процедуру if LookupComboBox.EditValue := "значение" then....

← →
MV (2008-05-30 17:00) [15]

не работает

А в событии установить точку остановки? заходит туда?

← →
MV (2008-05-30 17:05) [17]

if (LookupComboBox.EditValue := 400) then // на этом моменте останавливается
sRec.DataSet.FieldByName("MESSAGE_TASK").Value :=
TypeWorks + dsBankList.Fields.FieldByName("BANKNAME").AsString +
" c "+sDateTaskComplite
+" текст.";
end;

и чему в этот момент равно LookupComboBox.EditValue?

← →
MV (2008-05-30 17:17) [19]

там же ListFieldNames = NAME (Оно отображается в списке), а значение KeyFieldNames = iD (400)(которое и заносится в таблицу)

if (LookupComboBox.EditValue := 400) then
двоеточие ненадо...

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