[JuniorDev]

Помогите,DbgridEh странно себя ведет,не показывает записи!
Привет всем!
Возникло вопрос по Ehlib 4.4!
DbgridEh странно себя ведет,не показывает записи при пере открытие IbClientDataseta.
Стараюсь объяснить.
form1>IbDatabase>IBtransation>Ibclientdataset>Ibda tasource>DbgridEh1

я в событие Button Onclick отркываю Ibclientdataset
и там динамическое добавляю два поля один lookup поля и второй вычисляемое поля таким способом

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49

begin   sql:='select * from table1 order by id';   with Ibclientdataset do      begin       PacketRecords := 0;       DisableControls;       try         ibclientdataset.commandtext:=sql;         open;         Close;         for i := 0 to FieldDefs.Count - 1 do           FieldDefs.Items[i].CreateField(Self);         with TStringField.Create(Self) do         begin           FieldName := 'STATE_NAME';           DataSet := ibclientdataset;           FieldKind := fkLookup;           KeyFields := 'state';           LookUpDataset := ibStateDataset;           LookUpKeyFields := 'id';           LookUpResultField := 'name';           Size := 80;           with FieldDefs.AddFieldDef do           begin             Name := FieldName;             DataType := ftString;             Size := 80;           end;         end;         with TFloatField.Create(Self) do         begin           FieldName := 'summa';           DataSet := IbClientdataset;           FieldKind := fkCalculated; //          Size := 8;           with FieldDefs.AddFieldDef do           begin             Name := FieldName;             DataType := ftfloat; //            Size := 8;           end;         end;       finally         PacketRecords := 20;         EnableControls;       end;           Open;     end; end;

Admin: Пользуемся тегами!

Когда первый раз запускаю то нормально все показывает, а когда нажимаю еще раз кнопку в открытием Ibclientdataset
тогда в DbgirdEh записи исчезают, количество строк показывают просто в ячейках пусто. Внизу грида есть DbEditEh>IbDatasourse
на нем не исчезают при повторном открытия,потом тестировал на обычном Dbgride на нем все нормально сколько раз не нажимаю все
нормально показывают.
Помогите в чем проблема в этом DbgridEh.
Если уберу динамик поля то нормально показывают..