fix weird tab behaviour in frmValidator grid
This commit is contained in:
parent
b91df1f921
commit
37e678c32f
@ -974,25 +974,6 @@ Public Class frmValidator
|
|||||||
|
|
||||||
Dim oGrid = ControlCreator.CreateExistingGridControl(oControlRow, oFilteredDatatable, False)
|
Dim oGrid = ControlCreator.CreateExistingGridControl(oControlRow, oFilteredDatatable, False)
|
||||||
|
|
||||||
AddHandler oGrid.ProcessGridKey, Sub(ByVal _sender As Object, ByVal e As KeyEventArgs)
|
|
||||||
If e.KeyCode = Keys.Tab Then
|
|
||||||
Dim gridControl = TryCast(_sender, GridControl)
|
|
||||||
Dim view = TryCast(gridControl.FocusedView, Views.Base.ColumnView)
|
|
||||||
|
|
||||||
If (e.Modifiers = Keys.None And view.IsNewItemRow(view.FocusedRowHandle) _
|
|
||||||
And view.FocusedColumn.VisibleIndex = view.VisibleColumns.Count - 1) Then
|
|
||||||
If view.IsEditing Then
|
|
||||||
view.CloseEditor()
|
|
||||||
Me.SelectNextControl(gridControl, e.Modifiers = Keys.None, True, True, True)
|
|
||||||
e.Handled = True
|
|
||||||
End If
|
|
||||||
End If
|
|
||||||
End If
|
|
||||||
End Sub
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
oMyControl = oGrid
|
oMyControl = oGrid
|
||||||
Case "LINE"
|
Case "LINE"
|
||||||
|
|
||||||
|
|||||||
Loading…
x
Reference in New Issue
Block a user