MS 3.1.1.0

app/DD-Record-Organizer/frmDoc_Links.vb

@@ -1,5 +1,6 @@
 Imports System.IO
 Imports DD_LIB_Standards
+Imports DevExpress.XtraGrid.Columns
 Imports DevExpress.XtraPrinting
 Imports Microsoft.Office.Interop.Outlook
 
@@ -86,6 +87,7 @@ Public Class frmDoc_Links
                     End Try
                     grvwGrid.OptionsView.ColumnAutoWidth = False
                     grvwGrid.BestFitColumns()
+                    grvwGrid.Columns(0).Fixed = FixedStyle.Left
                 Catch ex As System.Exception
                     LOGGER.Error(ex)
                 End Try
@@ -199,8 +201,12 @@ Public Class frmDoc_Links
     Private Sub OrdnerÖffnenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles OrdnerÖffnenToolStripMenuItem.Click
         Dim oPAth = grvwGrid.GetFocusedRowCellValue(grvwGrid.Columns("FULL_FILENAME"))
         Dim oDocID = grvwGrid.GetFocusedRowCellValue(grvwGrid.Columns("DocID"))
-        For Each row As DataRow In ClassWindreamDocGrid.DT_RESULTFILES.Rows
-            ClassHelper.Open_Folder(oPAth, oDocID)
-        Next
+        If Not IsNothing(oPAth) Then
+            If Not IsNothing(oDocID) Then
+                ClassHelper.Open_Folder(oPAth, oDocID)
+            End If
+
+        End If
+
     End Sub
 End Class