Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > Компоненты и классы
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #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.
Если уберу динамик поля то нормально показывают..

Последний раз редактировалось Admin, 01.04.2009 в 11:19.
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 05:36.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2023

ВКонтакте   Facebook   Twitter