Private Sub clvDemo_ItemLongClick (Index As Int, Value As Object)
itemid = Index + 1
Private sf As Object = xui.Msgbox2Async("Do you really want to delete the selected entry ?", "D E L E T E", "Yes", "", "No", Null)
Wait For (sf) Msgbox_Result (Result As Int)
If Result = xui.DialogResponse_Positive Then
sql.ExecNonQuery("DELETE FROM fruit WHERE id = '" & itemid & "'")
showData
End If
End Sub
Private Sub clvDemo_ItemClick (Index As Int, Value As Object)
itemid = Index + 1
RS1 = sql.ExecQuery("SELECT * FROM fruit WHERE id = '" & itemid & "'")
RS1.Position = 0
Log(RS1.GetString("name"))
' Log(RS1.GetString("id"))
RS1.Close
End Sub