Форум: "Базы";
Текущий архив: 2002.07.15;
Скачать: [xml.tar.bz2];

Вниз

Создание Lookup поля в runtime   Найти похожие ветки 

← →
AlexNG   (2002-06-20 16:26) [0]

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

---

← →
Lusha   (2002-06-20 16:30) [1]

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

---

← →
AlexNG   (2002-06-20 16:38) [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-21 09:28) [3]

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

---

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

Форум: "Базы";
Текущий архив: 2002.07.15;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.012 c