LookupGrid: fix autoselect

This commit is contained in:
Jonathan Jenne 2021-03-18 13:13:36 +01:00
parent 6ea3e1669c
commit 922047ede8

View File

@ -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