B4X:
Sub wbvTable_OverrideUrl (Url As String) As Boolean
'parse the row and column numbers from the URL
Private values() As String
values = Regex.Split("[.]", Url.SubString(7))
Private Row As Int
Row = values(0)
Starter.CurrentIndex = Row
'Dim kk As String = Row
'Log(kk)
UpdateSelectedItem
Return True 'Don't try to navigate to this URL
End Sub
Sub UpdateSelectedItem
Private Answ As Int
Answ = Msgbox2("Do you really want to delete the selected entry ?", "D E L E T E", "Yes", "", "No", Null)
If Answ = DialogResponse.POSITIVE Then
Starter.SQL1.ExecNonQuery("DELETE FROM Recievedsms WHERE ID = " & "1")
ShowTable2
lblSelectedItem.Text = ""
End If
End Sub