Dim sf As Object = xui.Msgbox2Async("Do you really want to delete the selected row?", "MyApp Delete", "Yes", "", "No", Null)
Wait For (sf) Msgbox_Result (Result As Int)
If Result = xui.DialogResponse_Positive Then
Private mapWhere As Map
mapWhere.Initialize
mapWhere.Put("rowid", lstRowID.Get(SelectedRow))
DBUtils.DeleteRecord(SQL1, DBTableName, mapWhere)
Log("Deleted!!!")
ShowTableInWebView 'shows the updated table
ReadDatabaseInTable 'rereads the data
End If