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

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

Добавление lookup-поля в ClientDataSet в runtime [D7, MSSQL]


vlad_ri ©   (2004-07-26 17:12:00) 

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

 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"

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


vlad_ri   (2004-07-26 18:06:00) [1]

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


Vlad   (2004-07-26 17:53:00) [2]


> vlad_ri   (26.07.04 17:12)  

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


vlad_ri   (2004-07-26 17:52:00) [3]

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


Rem   (2004-07-26 17:37:00) [4]

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

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


Наверх

Титульная страница Поиск, карта сайта Написать письмо