fix focus problem in search start

GUIs.ZooFlow/ClassControlCreator.vb

@@ -223,15 +223,24 @@ Public Class ClassControlCreator
 
         oMyNewGridControl.DataSource = oDTSource
         oView.PopulateColumns()
+        oView.FocusInvalidRow()
 
-        oMyNewGridControl.RefreshDataSource()
-        oMyNewGridControl.ForceInitialize()
+        'oMyNewGridControl.RefreshDataSource()
+        'oMyNewGridControl.ForceInitialize()
 
         oWatch1.Stop()
 
         Return oMyNewGridControl
     End Function
 
+    Public Sub DeselectGridControl(BaseControl As Control)
+        Try
+            DirectCast(DirectCast(BaseControl, GridControl).MainView, GridView).FocusInvalidRow()
+        Catch ex As Exception
+            Logger.Error(ex)
+        End Try
+    End Sub
+
     Public Function AddCheckBox(pIndexname As String, y As Integer, pVorbelegung As String, pCaption As String) As CheckBox
         Try
             Dim oValue As Boolean = False