After this, I want to restore the last sorting.
This works fine with using IndexFieldNames like this:
Code: Select all
procedure TForm14.ReloadButtonClick(Sender: TObject);
var
SaveIndexFields : string;
begin
SaveIndexFields := ibcquery1.IndexFieldNames;
ibcquery1.Close;
ibcquery1.Open;
ibcquery1.IndexFieldNames := SaveIndexFields;
end;
Do you know a way to prevent this?