RefreshParams fix bug
Posted: 06.07.2007, 11:15
procedure TZAbstractRODataset.RefreshParams;
var
DataSet: TDataSet;
begin
DisableControls;
try
if FDataLink.DataSource <> nil then
begin
DataSet := FDataLink.DataSource.DataSet;
if DataSet <> nil then
if DataSet.Active and not (DataSet.State in [dsSetKey, dsEdit, dsInsert]) then
begin
//VISOR
Close;
Open;
// Refresh; wrong Method
end;
end;
finally
EnableControls;
end;
end;
var
DataSet: TDataSet;
begin
DisableControls;
try
if FDataLink.DataSource <> nil then
begin
DataSet := FDataLink.DataSource.DataSet;
if DataSet <> nil then
if DataSet.Active and not (DataSet.State in [dsSetKey, dsEdit, dsInsert]) then
begin
//VISOR
Close;
Open;
// Refresh; wrong Method
end;
end;
finally
EnableControls;
end;
end;