AppStd/Monorepo
8
1
Fork 0
Code Issues Pull Requests Releases Wiki Activity

LookupGrid: fix autoselect

Browse Source
This commit is contained in:
Jonathan Jenne 2021-03-18 13:13:36 +01:00
parent 6ea3e1669c
commit 922047ede8
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
Controls.LookupGrid/frmLookupGrid.vb
View File

@ -16,7 +16,6 @@ Public Class frmLookupGrid
Private _Grid As GridControl Private _Grid As GridControl
Private _R As Resources.ResourceManager = My.Resources.Strings.ResourceManager Private _R As Resources.ResourceManager = My.Resources.Strings.ResourceManager
Private Sub frmLookupGrid_Load(sender As Object, e As EventArgs) Handles Me.Load Private Sub frmLookupGrid_Load(sender As Object, e As EventArgs) Handles Me.Load
_View = viewLookup _View = viewLookup
_Grid = gridLookup _Grid = gridLookup
@ -235,7 +234,7 @@ Public Class frmLookupGrid
End Sub End Sub
Private Sub viewLookup_ValidateRow(sender As Object, e As ValidateRowEventArgs) Handles viewLookup.ValidateRow 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) Dim oRow As DataRowView = viewLookup.GetRow(e.RowHandle)
oRow.Row.Item("SELECTED") = True oRow.Row.Item("SELECTED") = True
End If End If