For i = 0 To macchine.Size - 1
Try
Dim m As Map
m = macchine.Get(i)
Dim tl As TwoLines
tl.First = m.Get("data")
formatnumero = m.Get("totale")
gennaio = m.Get(0)
febbraio = m.Get(1)
marzo = m.Get(2)
grafico
tl.Second = formatnumero
ListView3.AddTwoLines2(tl.First, tl.Second, tl)
Next
Catch
Log(LastException.Message)
End Try
Next
oppure
B4X:
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")
If m.Get(0)<>Null Then
gennaio = m.Get(0)
febbraio = m.Get(1)
marzo = m.Get(2)
grafico
tl.Second = formatnumero
ListView3.AddTwoLines2(tl.First, tl.Second, tl)
End If
Next
Ma sicuramente hai fatto un errore nel caricamento dei dati, facci vedere la procedure dove riempi le Map
Ho fatto un test sul mio server online e con questo codice allegato ho il risultato come da foto allegata e con il codice allegato.
B4X:
Private Gennaio As Int ' Sub global
Private Febbraio As Int' Sub global
Private totale As String' Sub global
'-----------------------------------------------
Case containcassopark ' <-----------Sub nel JobDone
ListView3.Clear
Dim Valori As List
Valori.Initialize
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)
totale = m.Get("totale")
Valori.Add(totale)
Next
Gennaio = Valori.Get(0)'
Febbraio = Valori.Get(1)'
'----------------------------------
' Aggiungi gli altri mesi
'...............................................
' Marzo = Valori.Get(2)'
' Aprile.......................
' Ecc.........................
grafico '-----> sub