Добрый день, товарищи!
Я вдохновился этим постом и пытаюсь сделать тоже самое, только в динамическом порядке.
Сейчас опишу свои действия, потом скажу, что не получилось, а затем прошу сказать мне, где я ошибся.
В отдельном классе создаю компоненты для обработки запросов и вывода результатов:
Query := TIBQuery.Create(MyOwner); Query.AutoCalcFields := True; Query.Database := DefDataBase; Table := TIBTable.Create(MyOwner); Table.AutoCalcFields := True; Table.Database := DefDataBase; Table.Transaction := DefTransaction; Table.IndexFieldNames := 'ID'; DataSource := TDataSource.Create(MyOwner); DataSource.AutoEdit := True; DataSource.DataSet := Table;
Создаю объект этого класса и подключаю к нему DBGrid. Тут все нормально, данные в DBGrid отображаются корректно.
Пытаюсь программно добавить поле в объект Table:
NewField:= TField.Create(Table); NewField.FieldName := 'REF_MANAGER'; NewField.Name := 'REF_MANAGER'; NewField.Visible := true; NewField.KeyFields := 'MANAGER'; NewField.FieldKind := fkLookUp; NewField.LookupDataSet := TDataSet(IbComponents.RetrieveComponent(USERS)); // тут обычная функция, которая возвращает компонент TIbTable NewField.LookupKeyFields := 'ID'; NewField.LookupResultField := 'SNAME'; Table.Fields.Add(NewField);
Ошибок тут не возникает. Если вывожу в стринглист список полей в Table, то мое поле там есть. Но в DBGrid'е изменения не отображаются. В этом, собственно, вся загвоздка.
PS. я давно тут не был, куда подевалось форматирование кода?
TTable
есть свойствоAutoRefresh
(должно бытьtrue
), может в этом дело? Форматирование кода - фигурные скобочки.