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;
RefreshParams fix bug
Moderators: gto, cipto_kh, EgonHugeist
- mdaems
- Zeos Project Manager
- Posts: 2766
- Joined: 20.09.2005, 15:28
- Location: Brussels, Belgium
- Contact:
Visor123,
can you give some more detail on why you want to change this? As far as I know a Refresh is more or less a close/open sequence.
Can you give some sample program which proves there's something wrong and file it as a bug report? (zeosbugs.firmos.at) Don't forget to add the sql script to build the database and some data. (no db files : they are only usable for a limited amount of users)
Mark
can you give some more detail on why you want to change this? As far as I know a Refresh is more or less a close/open sequence.
Can you give some sample program which proves there's something wrong and file it as a bug report? (zeosbugs.firmos.at) Don't forget to add the sql script to build the database and some data. (no db files : they are only usable for a limited amount of users)
Mark