allora:
questa e' la risposta:
Response from server: [{"data":"08\/01\/2018 05:38","totale":"1530"},{"data":"10\/02\/2018 09:12","totale":"988"},{"data":"01\/03\/2018 11:09","totale":"2431"}]
a questo
ExecuteRemoteQuery("SELECT data, SUM(Importo) As totale FROM incassi WHERE n_macchina = " & macchina & " GROUP BY SUBSTRING(Data,4,2)",containcasso)
non e' proprio il mese...ma quasi!
ho messo una listview per visualizzarli
Case containcassopark
ListView3.Clear
Dim macchine As List
Dim formatnumero As Double
macchine= parser.NextArray
For i = 0 To macchine.Size - 1
Dim m As Map
m = macchine.Get(i)
Dim tl As TwoLines
tl.First = m.Get("data")
formatnumero = m.Get("totale")
tl.Second = formatnumero
ListView3.AddTwoLines2(tl.First, tl.Second, tl)
grafico
Next
(la funzione grafico che chiamo porta qui :
mbc1.LegendText = Array As String("Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul", "Aug", "Sep", "Oct", "Nov", "Dec")
mbc1.ChartData = Array As Float ("macchine") 'values - it will be converted to %
ma ancora non ho capito come caricare il chartdata... la lista l'ho fatta...
piano piano diventero' un provetto di b4a!