Sub TextField1_Action
ie.ExitEditMode
Dim visibleindex As Int = ie.CurrentlyFocusedCell.VisibleIndex
Sleep(0)
Dim nextrowid As Long = IIf(B4XTable1.VisibleRowIds.Size > visibleindex + 1, B4XTable1.VisibleRowIds.Get(visibleindex + 1), 0)
If nextrowid > 0 Then
If ie.CurrentlyFocusedCell.ColumnId = "String" Then
ie.CellClicked(ie.CurrentlyFocusedCell.ColumnId, nextrowid)
End If
End If
End Sub