top most for frmMatch, fix export for dataresultlist

GUIs.Common/DocumentResultList/frmDocumentResultList.vb

@@ -102,13 +102,21 @@ Public Class frmDocumentResultList
                         UpdateGridHeader(index, oResult.Datatable.Rows.Count)
 
                     Case Else
-                        MessageBox.Show("You have more than three searches configured. This Window will only show the first three result lists!")
+                        MessageBox.Show("You have more than three searches configured. This Window will only show the first three result lists!", Text, MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
                         Exit For
                 End Select
             Next
 
             ' Hide Grids depending on Result count
             Select Case _ResultLists.Count
+                Case 0
+                    SplitContainerControl1.SetPanelCollapsed(True)
+                    SplitContainerControl2.SetPanelCollapsed(True)
+
+                    SwitchMainContainerHorizontal.Enabled = False
+                    SwitchDetailContainerHorizontal.Enabled = False
+
+                    MessageBox.Show("No Searches found.", Text, MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
                 Case 1
                     SplitContainerControl1.SetPanelCollapsed(True)
                     SplitContainerControl2.SetPanelCollapsed(True)
@@ -387,6 +395,11 @@ Public Class frmDocumentResultList
         SetActiveGridBand()
     End Sub
 
+    Private Sub GridView1_FocusedRowChanged(sender As GridView, e As FocusedRowChangedEventArgs) Handles GridView1.FocusedRowChanged, GridView2.FocusedRowChanged, GridView3.FocusedRowChanged
+        Dim oGrid As GridControl = sender.GridControl
+        _ActiveGrid = oGrid
+    End Sub
+
     Private Sub SetActiveGridBand()
         If _ActiveGrid.Equals(GridControl1) Then
             _ActiveGridBand = GridBand1
@@ -496,4 +509,6 @@ Public Class frmDocumentResultList
     Private Sub GridControl_DoubleClick(sender As Object, e As EventArgs) Handles GridControl1.DoubleClick, GridControl2.DoubleClick, GridControl3.DoubleClick
         OpenFile()
     End Sub
+
+
 End Class