Показать сообщение отдельно
  #1  
Старый 01.04.2009, 11:12
JuniorDev JuniorDev вне форума
Прохожий
 
Регистрация: 01.04.2009
Сообщения: 1
Репутация: 10
По умолчанию Помогите,DbgridEh странно себя ведет,не показывает записи!

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

я в событие Button Onclick отркываю Ibclientdataset
и там динамическое добавляю два поля один lookup поля и второй вычисляемое поля таким способом
Код:
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.
Если уберу динамик поля то нормально показывают..
Ответить с цитированием