lookupgrid fix

Controls.LookupGrid/frmLookupGrid.vb

@@ -79,30 +79,7 @@ Public Class frmLookupGrid
         view.BestFitColumns()
     End Sub
 
-    Private Sub SyncItemsWithView(view As GridView)
-        ' Wenn Vorbelegungen existieren, werden diese angehakt
-        If SelectedValues.Count > 0 Then
-            For i = 0 To view.DataRowCount - 1
-                Dim rowHandle = view.GetRowHandle(i)
-                Dim rowView As DataRowView = view.GetRow(rowHandle)
-
-                If rowView IsNot Nothing Then
-                    Dim row As DataRow = rowView.Row
-                    Dim value = row.Item(dataColumn)
-
-                    If SelectedValues.Contains(value) Then
-                        If MultiSelect Then
-                            row.Item(0) = True
-                        Else
-                            view.SelectRow(rowHandle)
-                        End If
-                    End If
-                End If
-            Next
-        End If
-    End Sub
-
-    Private Sub btnOK_Click(sender As Object, e As EventArgs) Handles btnOK.Click
+    Private Sub SaveSelectedValues()
         ' Filter vor dem Auslesen entfernen, damit alle Werte erfasst werden
         view.FindFilterText = String.Empty
 
@@ -137,6 +114,34 @@ Public Class frmLookupGrid
 
             SelectedValues = oValues
         End If
+    End Sub
+
+
+    Private Sub SyncItemsWithView(view As GridView)
+        ' Wenn Vorbelegungen existieren, werden diese angehakt
+        If SelectedValues.Count > 0 Then
+            For i = 0 To view.DataRowCount - 1
+                Dim rowHandle = view.GetRowHandle(i)
+                Dim rowView As DataRowView = view.GetRow(rowHandle)
+
+                If rowView IsNot Nothing Then
+                    Dim row As DataRow = rowView.Row
+                    Dim value = row.Item(dataColumn)
+
+                    If SelectedValues.Contains(value) Then
+                        If MultiSelect Then
+                            row.Item(0) = True
+                        Else
+                            view.SelectRow(rowHandle)
+                        End If
+                    End If
+                End If
+            Next
+        End If
+    End Sub
+
+    Private Sub btnOK_Click(sender As Object, e As EventArgs) Handles btnOK.Click
+        SaveSelectedValues()
 
         DialogResult = DialogResult.OK
         Close()
@@ -150,9 +155,15 @@ Public Class frmLookupGrid
     End Sub
 
     Private Sub gridLookup_KeyUp(sender As Object, e As KeyEventArgs) Handles gridLookup.KeyUp
-        If e.KeyCode = Keys.Escape Then
-            Close()
-        End If
+        Select Case e.KeyCode
+            Case Keys.Escape
+                Close()
+            Case Keys.F1
+                SaveSelectedValues()
+
+                DialogResult = DialogResult.OK
+                Close()
+        End Select
     End Sub
 
     Private Sub viewLookup_CellValueChanging(sender As Object, e As Views.Base.CellValueChangedEventArgs) Handles viewLookup.CellValueChanging