Wait For (req.ExecuteQuery(cmd, 0, Null)) JobDone(j As HttpJob)
If j.Success Then
req.HandleJobAsync(j, "req")
Wait For (req) req_Result(res As DBResult)
req.PrintTable(res)
'PIE CHART
PieChart.Initialize("PC")
PieChart.Title = "Pie Chart"
PieChart.LabelLineLength = 10
B4XPages.GetNativeParent(Me).RootPane.AddNode(PieChart,620,100,300,300)
Dim m As Int
Dim data1() As PieData
For Each row() As Object In res.Rows
Dim val2 As String = row(res.Columns.Get("feiyongguiji"))
Dim val3 As Double = row(res.Columns.Get("jine"))
For m=0 To res.Rows.Size-1
data1(m).Initialize(val2,val3)
Next
Next
PieChart.AddAllData(data1)
Else
Log("ERROR: " & j.ErrorMessage)
End If
j.Release