Sub HandleTestIdValues(Job As HttpJob)
If Job.Success = False Then
hd.ToastMessageShow("Error downloading List.", True)
hd.ProgressDialogHide
Return
End If
Try
Dim Text As String=StripTags(Job.GetString)
Dim p AsJSONParser
p.Initialize(Text)
Dim oItems As List
oItems =p.NextArray
Dim sTestId As String
Dim sTestIdValue As String
Dim sBuffer As String
Dim iRowOffset As Int
iRowOffset=20
ScrollViewInput.Height=100%y
ScrollViewInput.ContentHeight=400%y
ScrollViewInput.ContentWidth=100%x
ScrollViewInput.Width=100%x
For i = 0 To oItems.Size - 1
oRowMap=oItems.Get(i)
sTestId=oRowMap.Get("sTestId")
sTestIdValue=oRowMap.Get("sTestIdValue")
sBuffer=sBuffer & " " & sTestId
Dim oLB2 As Label
oLB2.Initialize("2lb"&i)
oLB2.Text=sTestIdValue
ScrollViewInput.Panel.AddView(oLB2,10dip,iRowOffset,90%x,100dip)
iRowOffset=iRowOffset+40
Next
Catch
oError.ShowLastException("Error Loading testid values")
EndTry
End Sub