Добавление lookup-поля в ClientDataSet в runtime

← →
vlad_ri (2004-07-26 17:12) [0]

Интересно кто-то делал подобное?

ClientDataSet1.Close;
ANewField := TStringField.Create(ClientDataSet1);
ANewField.FieldName := "Stat";
ANewField.FieldKind := fkLookup;
ANewField.DataSet := ClientDataSet1;
ANewField.Name := ANewField.DataSet.Name + ANewField.FieldName;
ANewField.KeyFields := "StationType";
ANewField.LookupDataSet := ClientDataSet2;
ANewField.LookupKeyFields := "IDStationType";
ANewField.LookupResultField := "StationType";
ANewField.Index := ClientDataSet1.FieldDefList.FieldByName("StationType").Index + 1;
ClientDataSet1.FieldDefs.Add(ANewField.Name,ftString,10,false);
ClientDataSet1.Open;

Вот после Open получаю ошибку "ClientDataSet1: Field "StationType" not found"

Где ошибка, как лечить?

← →
Rem (2004-07-26 17:37) [1]

Сказано же:
ClientDataSet1: Поле "StationType" не найдено.

2 варианта:
- подсоединил не к тому (что нужно) DataSet"У
- у нужного DataSet"а нет такого поля

← →
vlad_ri (2004-07-26 17:52) [2]

А 3-го не дано?
Представьте себе что все поля на месте!

← →
Vlad © (2004-07-26 17:53) [3]

> vlad_ri (26.07.04 17:12)

Метод CreateDataSet Александр Сергеич вызывать будет ?

← →
vlad_ri (2004-07-26 18:06) [4]

На счёт CreateDataSet я не знал, спасибо...
но он тоже не помогает, теперь ошибка появляется при вызове данного метода...

Добавление lookup-поля в ClientDataSet в runtime Найти похожие ветки