MS 2.7

app/DD-Record-Organizer/frmConstructor_Main.vb

@@ -7219,12 +7219,14 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
 
     Private Sub VerknüpfungenAnzeigenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles docCM_Showlinks.Click
         Try
-            ClassWindreamDocGrid.GetDocItems(GridViewDoc_Search)
-            If IsNothing(ClassWindreamDocGrid.DT_RESULTFILES) Then
-                MsgBox("Could not read File Parameters (LinkRecord)!", MsgBoxStyle.Exclamation)
+
+            Dim oDocID = GridViewDoc_Search.GetRowCellValue(GridViewDoc_Search.FocusedRowHandle, "DocID")
+            If IsNothing(oDocID) Then
+                MsgBox("Could not get DocID!", MsgBoxStyle.Exclamation)
                 Exit Sub
             End If
-            Refresh_Selected_Table()
+            CURRENT_DOC_ID = oDocID
+
             Dim frm As New frmDoc_Links
             frm.Show()
             frm.BringToFront()