Hello.
I am getting the strange error "Missing Keyword: next" in this code, and I don't understand why.
I am getting the strange error "Missing Keyword: next" in this code, and I don't understand why.
B4X:
Sub Button1_Click
Dim i As Int
For i = 0 To m_lstButtons.Size-1
If m_lstButtons.Get(i) = Sender Then
If i <=(m_lstCells.Size -1) Then
Dim nCell As Map
nCell = m_lstCells.Get(i)
Dim sJump As String
sJump = nCell.GetValueAt (5)
If sJump.Length >-1 Then
Dim p As Int
For p = 0 To m_lstPages.Size -1
Dim nPage As Map
nPage = m_lstPages.Get(p)
If nPage.GetValueAt(0)=sJump Then
tPage = nPage
pShow
Exit For
End If
Next p
End If
Exit For
Else
Msgbox("Cell is empty",":-(")
End If
End If
Next i
'Just make the panel invisible to let the dashboard redraw itself
' Dim nButton As Button
' Dim nPanel As Panel
'
' nButton = Sender
' nPanel = nButton.Tag
' nPanel.Visible = False
End Sub