| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Как создавать lookup поля в run-time? [D7]

Вован ©   (2003-07-05 17:50:00) 

Сабж

---

koks   (2003-07-07 16:52:00) [1]

Ничего не плохо. Просто есть два способа -

либо объекты полей СТАТИЧЕСКИЕ и создаются в дизайн-тайме(и вот тогда можно создавать лукапы и проч.)
либо объекты полей динамические. Они создаются автоматически при открытии набора, для которого в дизайне не прописаны объекты полей. (лукапы создавать нельзя)
Эти два способа имеют свои достоинства и недостатки, но они взаимоисключающи.

---

Вован   (2003-07-07 15:10:00) [2]

>>При таких вопросах лучше делать все в Disign-е :-)

Ну не работал я раньше с базами

А вот то что, нигде нет примера как подключить к dataset lookup поле в runtime, это факт.

Я делаю вот-так


F:=TStringField.Create(Table);
F.FieldKind:=fkLookup;
F.Lookup:=true;
F.LookupKeyFields:="ID";
F.LookupResultField:="NAME";
F.KeyFields:="IDCOMP";
F.FieldName:="COMP";
F.LookupDataSet:=TableComp;
F.DataSet:=Table;

Table.FieldDefs.Add(F.FieldName,ftString,0,false);

Table.Open; // Вот сдесь пишет что, поле "IDCOMP" не найденно


Table.Open проходил пошагово, вплоть до InternalOpen и BindFields
и обнаружил что, первым делом сториться именно поле которое я добаил динамически а в это время информации о других полях еще нет а в лукап поле указан KeyFields:="IDCOMP" в bindfields вызывается проверка на valid поля и в этой проверке выскакует исключение что, поле "IDCOMP" не найден

---

ЮЮ   (2003-07-07 14:30:00) [3]

>А как его потом вставить в грид?

При таких вопросах лучше делать все в Disign-е :-)

---

Вован   (2003-07-07 14:18:00) [4]

Неужеле все так плохо?

---

koks   (2003-07-07 13:07:00) [5]

ой не благодарное это дело я как то маялся с подобным потом забросил. Лучше создать все возможные lookup - поля в дизайн-тайме а потом управлять их видимостью. (например через свойство колонок Visible). Ну на худой конец - создать (опять же в дизайне) Calculated - поле и в нем (через тот же look-up) вычислять значения... (будут тормоза !!).

---

Вован   (2003-07-06 18:59:00) [6]

А как его потом вставить в грид?

---

kaif   (2003-07-05 22:52:00) [7]

Так же, как и обычные поля, например:

var
F: TStringField;
begin
F := TStringField.Create(Form1);
F.FieldKind := fkLookup;
F.DataSet := Query1; //в общем то, к чему прикручиваешь
{далее указываешь датасеты, поля и индексы}
F.LookupDataSet :=
F.LookupKeyFields := ...
и т.д.
end;

---

Наверх