Sub AddItemsFromList_Click
Dim myList As List
myList.Initialize
myList.Add("Orange")
myList.Add("White")
myList.Add("Black")
For i=0 To myList.Size-1
GLO_ColorName = myList.Get(i)
Dim pq As ParseQuery
pq.Initialize("Color")
pq.WhereEqualTo("Name",GLO_ColorName)
pq.Find("pq", 0)
Next
ProgressDialogShow("Waiting for response.")
End Sub
Sub pq_DoneFind (Success As Boolean, ListOfPO As List, TaskId As Int)
ProgressDialogHide
If Success = False Then
Log("Error: " & LastException.Message)
ToastMessageShow("Error: " & LastException.Message, True)
Else
If ListOfPO.Size = 0 Then
Dim po As ParseObject
po.Initialize("Color")
po.Put("Name",GLO_ColorName)
po.Save("po", 0)
Else
For i = 0 To ListOfPO.Size - 1
Dim po As ParseObject
po = ListOfPO.Get(i)
po.Put("Long",1)
po.Save("po", 0)
Next
End If
End If
End Sub
Sub AddItemsFromList_Click
Dim pq As ParseQuery
pq.Initialize("Color")
pq.Find("pq", 0)
ProgressDialogShow("Waiting for response.")
End Sub
Sub pq_DoneFind (Success As Boolean, ListOfPO As List, TaskId As Int)
ProgressDialogHide
If Success = False Then
Log("Error: " & LastException.Message)
ToastMessageShow("Error: " & LastException.Message, True)
Else
Dim loc_Exists As Boolean = False
Dim loc_ColorName As String = ""
Dim myList As List
myList.Initialize
myList.Add("Orange")
myList.Add("White")
myList.Add("Black")
For x=0 To myList.Size-1
loc_ColorName = myList.Get(x)
loc_Exists = False
For i = 0 To ListOfPO.Size - 1
Dim po As ParseObject
po = ListOfPO.Get(i)
If po.GetString("Name") = loc_ColorName Then
po.Put("Long",1)
po.Save("po", 0)
loc_Exists = True
End If
Next
If loc_Exists = False Then
Dim po As ParseObject
po.Initialize("Color")
po.Put("Name",loc_ColorName)
po.Save("po", 0)
End If
Next
End If
End Sub