Fix more candidates for issue #858 ("Cannot perform this operation on a closed dataset")

This commit is contained in:
Ansgar Becker
2009-03-12 19:36:44 +00:00
parent 03748ec6eb
commit 1c1c1e8e36

View File

@ -8466,14 +8466,14 @@ end;
function TMainForm.GetSelTableColumns: TDataset;
begin
if FLastSelectedTableColumns = nil then
if (FLastSelectedTableColumns = nil) or (FLastSelectedTableColumns.State = dsInactive) then
FLastSelectedTableColumns := GetResults( 'SHOW /*!32332 FULL */ COLUMNS FROM ' + mask(SelectedTable), false );
Result := FLastSelectedTableColumns;
end;
function TMainForm.GetSelTableKeys: TDataset;
begin
if FLastSelectedTableKeys = nil then
if (FLastSelectedTableKeys = nil) or (FLastSelectedTableKeys.State = dsInactive) then
FLastSelectedTableKeys := GetResults( 'SHOW KEYS FROM ' + mask(SelectedTable) );
Result := FLastSelectedTableKeys;
end;