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