From 922047ede8639d88b3b9058a57b820f8efca6243 Mon Sep 17 00:00:00 2001
From: Jonathan Jenne <j.jenne@digitaldata.works>
Date: Thu, 18 Mar 2021 13:13:36 +0100
Subject: [PATCH] LookupGrid: fix autoselect

---
 Controls.LookupGrid/frmLookupGrid.vb | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/Controls.LookupGrid/frmLookupGrid.vb b/Controls.LookupGrid/frmLookupGrid.vb
index 5c858cb0..46c36ab8 100644
--- a/Controls.LookupGrid/frmLookupGrid.vb
+++ b/Controls.LookupGrid/frmLookupGrid.vb
@@ -16,7 +16,6 @@ Public Class frmLookupGrid
     Private _Grid As GridControl
     Private _R As Resources.ResourceManager = My.Resources.Strings.ResourceManager
 
-
     Private Sub frmLookupGrid_Load(sender As Object, e As EventArgs) Handles Me.Load
         _View = viewLookup
         _Grid = gridLookup
@@ -235,7 +234,7 @@ Public Class frmLookupGrid
     End Sub
 
     Private Sub viewLookup_ValidateRow(sender As Object, e As ValidateRowEventArgs) Handles viewLookup.ValidateRow
-        If MultiSelect Then
+        If MultiSelect And e.RowHandle = GridControl.NewItemRowHandle Then
             Dim oRow As DataRowView = viewLookup.GetRow(e.RowHandle)
             oRow.Row.Item("SELECTED") = True
         End If