Personalakte

app/DD-Record-Organizer/frmFileInWork.vb

@@ -1,23 +1,27 @@
 Public Class frmFileInWork
-
+    Public Property myDocuments As New List(Of ClassDocGrid.clsWMDoc)
     Private Sub btnInWork_Click(sender As Object, e As EventArgs) Handles btnInWork.Click
         Try
-            If ClassFileResult.Set_InWork(1, txtComment.Text) = True Then
-                Dim expression As String
-                expression = "DocID = " & ClassFileResult.DocID
-                Dim foundRowsLevel0() As DataRow
-                ' Use the Select method to find all rows matching the filter.
-                foundRowsLevel0 = CURRENT_DOC_RESULTS.Select(expression)
-                Try
-                    foundRowsLevel0(0)(13) = True
-                Catch ex As Exception
-                   
-                End Try
+            For Each oDoc As ClassDocGrid.clsWMDoc In myDocuments
+                ClassFileResult.DocID = oDoc.DocId
+                If ClassFileResult.Set_InWork(1, txtComment.Text) = True Then
+                    Dim expression As String
+                    expression = "DocID = " & ClassFileResult.DocID
+                    Dim foundRowsLevel0() As DataRow
+                    ' Use the Select method to find all rows matching the filter.
+                    foundRowsLevel0 = CURRENT_DOC_RESULTS.Select(expression)
+                    Try
+                        foundRowsLevel0(0)(13) = True
+                    Catch ex As Exception
 
-                Me.Close()
-            Else
-                MsgBox("Unexpected Error 1 in Setting to work - Check logfile", MsgBoxStyle.Exclamation)
-            End If
+                    End Try
+
+
+                Else
+                    MsgBox("Unexpected Error 1 in Setting to work - Check logfile", MsgBoxStyle.Exclamation)
+                End If
+            Next
+            Me.Close()
         Catch ex As Exception
             MsgBox("Unexpected Error 2 in Setting to work - Check logfile", MsgBoxStyle.Exclamation)
         End Try