Ошибка связи DataSource > DataSet

[_SERGEYX_]

Всем привет. Проблема такая...
На одной форме связка DBGridEh > DataSource > DataSet
В гриде данные видны нормально.
На другую модальную форму бросаю Грид и связываю с тем же DataSource > DataSet. Грид пустой, т.е. показывает, что DataSet закрыт. На первой форме я вижу данные, на второй нет.

Если тупо в коде перед открытием модальной формы присвоить программно

Form_Indexes_edit.DBGridEh1.DataSource.DataSet:= ind_edit;

то все на модальной форме отображается нормально.

Пробую сделать проверку:
1. Присваиваю для чистоты эксперимента

ind_edit.Tag:= 999;

2. Пишу на кнопку код

if ind_edit<>Form_Indexes_edit.DBGridEh1.DataSource.DataSet then
ShowMessage(IntToStr(ind_edit.Tag)+' - '+IntToStr(Form_Indexes_edit.DBGridEh1.DataSource.DataSet.Tag));

Код срабатывает!!! (получается, что DataSet-ы разные), но сообщение вылетает с текстом 999 - 999 (т.е. DataSet один и тот же).
Что за бред? И как бороться?

P.S. да, чуть не забыл... использую FibPlus и Firebird 2.5.

[ReportCube]

На модальную форму его открываете повторно?

[_SERGEYX_]

Нет. Датасет уже открыт.
Раньше все работало нормально. Потом само так стало. Это явный "косяк" Delphi.
Пробовал заменить сами компоненты DataSource и DataSet на новые чистые. Ничего не помогает. Получается, что DataSource теряет DataSet сразу при запуске программы.
Если при создании формы написать

Form_Indexes_edit.DBGridEh1.DataSource.DataSet:= ind_edit;

то будет работать нормально.

[Аватар]

Сталкивался с чем-то подобным, точно не помню, по-моему тоже DBGridEh там фигурировал, хотя это и не принципиально. Случалось не регулярно и не предсказуемо. Причины не нашел, да и не искал. После этого имею привычку при создании формы и наличии подобного в коде прописывать ссылки. Да есть еще нюанс при программном создании формы - не поместить указатель формы в переменную, которую дельфи услужливо предлагает

[Yurk@]

по идее новая форма ничего не знает о существующем подключении, поэтому ссылается на "пустое" место. стоит попробовать

Application.Create(TNewForm, NewForm);
DataSet.Open;
NewForm.ShowModal;

хотя сам с такой ошибкой не сталкивался. если будет возможжность - попробую смоделировать подобное

[Аватар]

А не существует ли две копии вызывающей формы? В одной из них датасет не открыт. Такой вариант точно вписывается в ситуацию из #1

[_SERGEYX_]

Программно формы нигде не создаются.

А не существует ли две копии вызывающей формы?

Нет. А разве можно создать две формы с одним именем?
Пробовал положить DBGrid на любую другую форму программы. Результат тот же.
Пробовал заменить DBGridEh на обычный DBGrid. Менял DataSorce на MyDataSource из компонентов MyDac. Поверил dfm-файлы. Там все написано правильно
В вызывающей форме

object DBGridEh1: TDBGridEh
     AllowedOperations = [alopInsertEh, alopUpdateEh, alopAppendEh]
    AutoFitColWidths = True
    DataGrouping.GroupLevels = <>
    DataSource = Form_Indexes.DSInd_edit

На основной форме

  object DSInd_edit: TDataSource
    DataSet = Ind_edit

Не знаю, что делать. В программе несколько десятков форм и начать переписывать код кусками что-то не хочется, если в других местах такие косяки вылезут.

[Stilet]

можно создать две формы с одним именем?

Насколько я помню - да. Но при определенных условиях.

Не знаю, что делать.

Не полагаться на DFM, а в OnActivate формы ручками приписать указание гриду Датасета. Это для начала.

[Аватар]

А разве можно создать две формы с одним именем?

А че нет? В частности создаю динамически несколько не зависимых друг от друга экземпляров одной эмдишной дочерней формы. Другое дело глобальную переменную формы нельзя использовать в этом случае. Name формы винда сама уникальным делает - Form1_1, Form1_2 и т.д. Экземляр той же модальной формы можно динамически создавать, даже если она и создана в dpr. Но опять же - не пользоваться глобальной переменной формы, поскольку она будет указывать на последнюю созданную форму

[_SERGEYX_]

Вопрос решился так: перенес DataSet-ы на DataModule и все заработало (при переносе на любую из форм работать не хочет). Хз почему такая ерунда получается.
Всем спасибо.