MS_08.03

app/DD-Record-Organiser/frmScanFiles.vb

@@ -24,9 +24,10 @@ Public Class frmScanFiles
             Dim sql1 As String = String.Format("select * from TBPMO_FILES_USER where HANDLE_TYPE = 'SCAN' and WORKED = 0 AND UPPER(USER_WORK) = '{0}'", Environment.UserName)
             Dim DT As DataTable = ClassDatabase.Return_Datatable(sql1, "Load ScanFiles")
             If Not IsNothing(DT) Then
+                CURRENT_SCAN_TABLE = DT
                 ListView1.Items.Clear()
                 Dim i = 0
-                For Each row As DataRow In DT.Rows
+                For Each row As DataRow In CURRENT_SCAN_TABLE.Rows
 
                     Dim extension = Path.GetExtension(row.Item("FILENAME2WORK").ToString)
                     Dim filestring = row.Item("FILENAME2WORK")
@@ -48,9 +49,9 @@ Public Class frmScanFiles
                         End If
                     End If
 
-                   
+
                 Next
-                If DT.Rows.Count = 0 Then
+                If CURRENT_SCAN_TABLE.Rows.Count = 0 Then
                     Me.Close()
                 End If
             End If
@@ -164,4 +165,9 @@ Public Class frmScanFiles
     Private Sub chkInFront_CheckedChanged(sender As Object, e As EventArgs) Handles chkInFront.CheckedChanged
         My.Settings.Save()
     End Sub
+
+    Private Sub Timer1_Tick(sender As Object, e As EventArgs)
+        Load_Files()
+    End Sub
+
 End Class