Personalakte und ComputerAppConfig Fehler

app/DD-Record-Organizer/Classes/ClassDocGrid.vb

@@ -89,8 +89,18 @@ Public Class ClassDocGrid
         Return oSelectedRows.Count = 0
     End Function
 
-    Public Shared Function GetSelectedDocuments(pGridView As GridView) As List(Of clsWMDoc)
-        Dim oSelectedRows As List(Of Integer) = pGridView.GetSelectedRows().ToList()
+    Public Shared Function GetSelectedDocuments(pGridView As GridView, Optional pGetFirst As Boolean = False) As List(Of clsWMDoc)
+        Dim oSelectedRows As List(Of Integer)
+        If pGridView.RowCount = 0 Then
+            Return Nothing
+        End If
+        If pGetFirst = True Then
+            pGridView.FocusedRowHandle = 0
+            oSelectedRows = New List(Of Integer) From {0}
+        Else
+            oSelectedRows = pGridView.GetSelectedRows().ToList()
+        End If
+
         Dim oDocuments As New List(Of clsWMDoc)
 
         For Each oRowHandle In oSelectedRows