MS V2.7 .Net Logger etc

app/DD-Record-Organizer/frmDocSearchResult.vb

@@ -31,7 +31,6 @@ Public Class frmDocSearchResult
     Public Sub LoadDocSearch()
         Try
             Cursor = Cursors.WaitCursor
-
             Dim DTRESULT As DataTable = ClassDatabase.Return_Datatable(CURRENT_DOCSEARCH_SQL, True)
             GridControlDocSearch.DataSource = Nothing
             GridViewDoc_Search.Columns.Clear()
@@ -39,8 +38,16 @@ Public Class frmDocSearchResult
             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
+            End If
+
         Catch ex As Exception
-            ClassLogger.Add("Unexpected Error in LoadDocSearch: " & ex.Message)
+            LOGGER.Warn("Unexpected Error in LoadDocSearch: " & ex.Message)
         End Try
         Cursor = Cursors.Default
 
@@ -216,9 +223,41 @@ Public Class frmDocSearchResult
 
     Private Sub GridViewDoc_Search_ColumnFilterChanged(sender As Object, e As EventArgs) Handles GridViewDoc_Search.ColumnFilterChanged
         ToolStripLabelCaption.Text = $"{CURRENT_DOCSEARCH_CAPTION} ({GridViewDoc_Search.RowCount} rows [filtered])"
+        If GridViewDoc_Search.RowCount > 12000 Then
+            ToolStripButton2.Enabled = False
+        Else
+            ToolStripButton2.Enabled = True
+        End If
     End Sub
 
     Private Sub ToolStripButton1_Click(sender As Object, e As EventArgs) Handles ToolStripButton1.Click
         LoadDocSearch()
     End Sub
+
+    Private Sub ToolStripButton2_Click(sender As Object, e As EventArgs) Handles ToolStripButton2.Click
+        Try
+            Dim saveFileDialogDocSearchResult As New SaveFileDialog
+            saveFileDialogDocSearchResult.Filter = "Excel File|*.xlsx"
+            saveFileDialogDocSearchResult.Title = "Export to Excel:"
+            saveFileDialogDocSearchResult.ShowDialog()
+            If saveFileDialogDocSearchResult.FileName <> "" Then
+                Cursor = Cursors.WaitCursor
+                GridControlDocSearch.MainView.ExportToXlsx(saveFileDialogDocSearchResult.FileName)
+                Dim result As MsgBoxResult
+                Dim msg = String.Format("Datei wurde erstellt! Wollen Sie diese nun öffnen?")
+
+                If USER_LANGUAGE <> "de-DE" Then
+                    msg = String.Format("File was created. Do You want to open excel?")
+                End If
+                result = MessageBox.Show(msg, "Exporting result:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
+                If result = MsgBoxResult.Yes Then
+                    Process.Start(saveFileDialogDocSearchResult.FileName)
+                End If
+            End If
+
+        Catch ex As Exception
+            MsgBox("Unexpected Error in ExportExcel: " & ex.Message, MsgBoxStyle.Critical)
+        End Try
+        Cursor = Cursors.Default
+    End Sub
 End Class