fix: staying on current table by click on "follow foreign key" when the foreign table lives in a different database

Refs #2457

Author: ansgarbecker

extra/locale/heidisql.po

@@ -7,7 +7,7 @@ msgid ""
 msgstr ""
 "Project-Id-Version: HeidiSQL\n"
 "POT-Creation-Date: 2012-11-05 21:40\n"
-"PO-Revision-Date: 2026-03-24 15:09+0100\n"
+"PO-Revision-Date: 2026-04-14 19:01+0200\n"
 "Last-Translator: Ansgar Becker <anse@heidisql.com>\n"
 "Language-Team: English (http://www.transifex.com/projects/p/heidisql/language/en/)\n"
 "Language: en\n"
@@ -6836,3 +6836,6 @@ msgstr "No password hash column available"
 
 msgid "Default role:"
 msgstr "Default role:"
+
+msgid "Foreign key table not found"
+msgstr "Foreign key table not found"

source/main.pas

@@ -11734,10 +11734,10 @@ procedure TMainForm.actFollowForeignKeyExecute(Sender: TObject);
 var
   Results: TDBQuery;
   RowNum: PInt64;
-  FocusedColumnName, ForeignColumnName, ReferenceTable: String;
+  FocusedColumnName, ForeignColumnName: String;
   ForeignKey: TForeignKey;
   i: Integer;
-  DBObj: TDBObject;
+  DBObj, ReferenceTable: TDBObject;
   Datatype: TDBDatatype;
   DbObjects: TDBObjectList;
   Filter: String;
@@ -11748,20 +11748,25 @@ procedure TMainForm.actFollowForeignKeyExecute(Sender: TObject);
   Results.RecNo := RowNum^;
   FocusedColumnName := Results.ColumnOrgNames[DataGrid.FocusedColumn-1];
   Conn := Results.Connection;
+  ReferenceTable := nil;
 
   // find foreign key for current column
   for ForeignKey in ActiveDBObj.TableForeignKeys do begin
     i := ForeignKey.Columns.IndexOf(FocusedColumnName);
     if i > -1 then begin
       ForeignColumnName := ForeignKey.ForeignColumns[i];
-      ReferenceTable := ForeignKey.ReferenceTable;
+      ReferenceTable := ForeignKey.ReferenceTableObj;
       break;
     end;
   end;
   if ForeignColumnName = '' then begin
     LogSQL(f_('Foreign key not found for column "%s"', [FocusedColumnName]), lcInfo);
     Exit;
   end;
+  if ReferenceTable = nil then begin
+    LogSQL(_('Foreign key table not found'));
+    Exit;
+  end;
   Datatype := Results.DataType(DataGrid.FocusedColumn-1);
   // filter to show only rows linked by the foreign key
   if DataType.Category in [dtcBinary, dtcSpatial] then
@@ -11770,13 +11775,7 @@ procedure TMainForm.actFollowForeignKeyExecute(Sender: TObject);
     Filter := Conn.QuoteIdent(ForeignColumnName)+'='+Conn.EscapeString(Results.Col(DataGrid.FocusedColumn-1));
 
   // Jumping to ReferenceTable. Caution, this invalidates the above used Results
-  DbObjects := Conn.GetDBObjects(ActiveDatabase);
-  for DBObj in DbObjects do begin
-    if DBObj.Database + '.' + DBObj.Name = ReferenceTable then begin
-      ActiveDBObj := DBObj;
-      Break;
-    end;
-  end;
+  ActiveDBObj := ReferenceTable;
 
   SynMemoFilter.Text := Filter;
   ToggleFilterPanel(True);