top most for frmMatch, fix export for dataresultlist

GUIs.Common/DataResultList/frmDataResultList.vb

@@ -123,6 +123,16 @@ Public Class frmDataResultList
         _ActiveRowHandle = e.FocusedRowHandle
     End Sub
 
+    Private Sub GridControl_Enter(sender As GridControl, e As EventArgs) Handles GridControl1.Enter, GridControl2.Enter, GridControl3.Enter
+        _ActiveGrid = sender
+        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 SplitContainerControl1_SplitterPositionChanged(sender As Object, e As EventArgs) Handles SplitContainerControl1.SplitterPositionChanged
         If _IsLoading = False Then
             _Config.Config.SplitContainer1Distance = SplitContainerControl1.SplitterPosition