MS Update

app/DD-Record-Organizer/frmDocSearchResult.vb

@@ -7,6 +7,7 @@ Public Class frmDocSearchResult
     <DllImport("Shell32", CharSet:=CharSet.Auto, SetLastError:=True)>
     Public Shared Function ShellExecuteEx(ByRef lpExecInfo As SHELLEXECUTEINFO) As Boolean
     End Function
+
     Public Structure SHELLEXECUTEINFO
         Public cbSize As Integer
         Public fMask As Integer
@@ -28,24 +29,30 @@ Public Class frmDocSearchResult
     Private Const SEE_MASK_NOCLOSEPROCESS = &H40
     Private Const SEE_MASK_FLAG_NO_UI = &H400
     Public Const SW_SHOW As Short = 5
-    Public Sub LoadDocSearch()
+    Private DT_RESULT As DataTable
+    Public Sub LoadDocSearch(reload As Boolean)
         Try
             Cursor = Cursors.WaitCursor
-            Dim DTRESULT As DataTable = ClassDatabase.Return_Datatable(CURRENT_DOCSEARCH_SQL, True)
-            GridControlDocSearch.DataSource = Nothing
-            GridViewDoc_Search.Columns.Clear()
-            GridControlDocSearch.DataSource = DTRESULT
-            GridViewDoc_Search.BestFitColumns(True)
-            ToolStripLabelCaption.Text = $"{CURRENT_DOCSEARCH_CAPTION} ({DTRESULT.Rows.Count} rows)"
-            Load_DocGrid_Layout()
-            GridControlDocSearch.DataSource = DTRESULT
-            GridControlDocSearch.DataSource = DTRESULT
-            If GridViewDoc_Search.RowCount > 15000 Then
-                ToolStripButton2.Enabled = False
-            Else
-                ToolStripButton2.Enabled = True
+
+            If reload = False Then
+                DT_RESULT = ClassDatabase.Return_Datatable(CURRENT_DOCSEARCH_SQL, True)
             End If
 
+            DT_RESULT = DT_RESULT
+            GridControlDocSearch.DataSource = Nothing
+            GridViewDoc_Search.Columns.Clear()
+            GridControlDocSearch.DataSource = DT_RESULT
+            GridViewDoc_Search.BestFitColumns(True)
+            ToolStripLabelCaption.Text = $"{CURRENT_DOCSEARCH_CAPTION} ({DT_RESULT.Rows.Count} rows)"
+            Load_DocGrid_Layout()
+            GridControlDocSearch.DataSource = DT_RESULT
+            GridControlDocSearch.DataSource = DT_RESULT
+            'If GridViewDoc_Search.RowCount > 15000 Then
+            '    ToolStripButton2.Enabled = False
+            'Else
+            '    ToolStripButton2.Enabled = True
+            'End If
+            ToolStripButton2.Enabled = True
         Catch ex As Exception
             LOGGER.Warn("Unexpected Error in LoadDocSearch: " & ex.Message)
         End Try
@@ -99,7 +106,7 @@ Public Class frmDocSearchResult
             End If
             For Each row As DataRow In ClassWindreamDocGrid.DT_RESULTFILES.Rows
                 ClassHelper.File_open(row.Item("DOC_PATH"), row.Item("DOC_ID"))
-                If CURRENT_OFFICE_FILE_CHANGED = True Then LoadDocSearch()
+                If CURRENT_OFFICE_FILE_CHANGED = True Then LoadDocSearch(True)
             Next
         Else
             ClassHelper.MSGBOX_Handler("ERROR", "", "File does not exist! Please contact your admin!")
@@ -181,7 +188,7 @@ Public Class frmDocSearchResult
     End Sub
 
     Private Sub frmDocSearchResult_Load(sender As Object, e As EventArgs) Handles Me.Load
-        LoadDocSearch()
+        LoadDocSearch(False)
         Me.Text = CURRENT_DOCSEARCH_CAPTION
     End Sub
     Sub Save_DocGrid_Layout()
@@ -231,7 +238,7 @@ Public Class frmDocSearchResult
     End Sub
 
     Private Sub ToolStripButton1_Click(sender As Object, e As EventArgs) Handles ToolStripButton1.Click
-        LoadDocSearch()
+        LoadDocSearch(False)
     End Sub
 
     Private Sub ToolStripButton2_Click(sender As Object, e As EventArgs) Handles ToolStripButton2.Click
@@ -260,4 +267,12 @@ Public Class frmDocSearchResult
         End Try
         Cursor = Cursors.Default
     End Sub
+
+    Private Sub ToolStripButton3_Click(sender As Object, e As EventArgs) Handles ToolStripButton3.Click
+        Dim XMLPath = Get_DocGrid_Layout_Filename()
+        If File.Exists(XMLPath) Then
+            File.Delete(XMLPath)
+            LoadDocSearch(True)
+        End If
+    End Sub
 End Class