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

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

Создание Lookup поля в runtime [D5, Oracle]

AlexNG ©   (2002-06-20 16:26:00) 

Доброе время суток! Если кто в курсе, подскажите что не так в след. последовательности шагов (все происходит в runtime):
-- в ADOQuery.SQL.Text пишу нект. SELECT-оператор;
-- проверка нект. условия, если True - последнее поле в ADOQuery должно быть представлено как Lookup-поле;
-- открываю ADOQuery.Open;
-- пишу ADOQuery.LookupDataSet (уже открыт), KeyFields, LookupKeyFields, LookupResultField;
--?? получаю Exception ("Данная операция невозможна при открытом DataSet-е").
Но если ADOQuery закрыт, то нет доступа к
Fields[N].LookupDataSet и т.д.??

---

Lusha   (2002-06-21 09:28:00) [1]

>AlexNG (20.06.02 16:38)

Field := TStringField.Create(Self);
with Field do
begin
FieldName := "F1";
Name := AQuery_Items.Name + FieldName;
FieldKind := fkLookUp;
DataSet := AQuery_Items;
// А дальше Сами...
end;

---

AlexNG   (2002-06-20 16:38:00) [2]

Пытаюсь задать значения этих свойств:
AQuery_Items.Fields[4].LookupDataSet := AQuery_Lookup;
// -- Здесь возникает Exception

AQuery_Items.Fields[4].KeyFields := FKeyLookup; //
AQuery_Items.Fields[4].LookupKeyFields := FKeyLookup;
AQuery_Items.Fields[4].LookupResultField := FResultLookup;

---

Lusha   (2002-06-20 16:30:00) [3]

Вот отсюда...
-- пишу ADOQuery.LookupDataSet (уже открыт), KeyFields, LookupKeyFields, LookupResultField;...поподробнее...

---

Наверх