Скачать: CL | DM;

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]

не работает

---

← →
Stas ©   (2008-05-30 17:02) [16]

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

---

← →
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;

---

← →
Stas ©   (2008-05-30 17:08) [18]

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

---

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

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

---

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

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.49 MB
Время: 0.01 c