hi,
i need of array multi dimension, the my code is:
Sub Globals
Dim nsquadre As Intent
Type lista(idsquadra As Int, squadra As String)
End Sub
Sub getnsquadre
Dim SQLResult As Object
SQLResult = sqldb.ExecQuerySingleResult2 ("SELECT nrsquadre FROM tappe WHERE id=?", Array As String( frmtorneo.idtorneo))
If SQLResult = Null Then
Msgbox("Error")
Return
Else
nsquadre=SQLResult
End If
End Sub
Sub getlistaordineclassifica
Dim elenco(nsquadre) As lista
Dim cursore As Cursor
cursore = sqldb.ExecQuery("SELECT partecipanti.idsquadra,squadre.nome,classifica.punteggio FROM partecipanti JOIN squadre ON partecipanti.idsquadra=squadre.id JOIN classifica ON partecipanti.idsquadra=classifica.id_squadra WHERE partecipanti.idtorneo =" & frmtorneo.idtorneo & " ORDER BY classifica.punteggio DESC" )
For i = 0 To cursore.RowCount -1
cursore.Position = i
elenco(i).idsquadra =cursore.GetInt("id")
elenco(i).squadra=cursore.GetInt("nome")
Log(elenco)
Next
cursore.Close
End Sub
but in the moment when the debug switch on the line of code: "Dim elenco(nsquadre) As lista", in compiler comes the following message:
(Line: 187) Dim list (12) As the list
java.lang.RuntimeException: toString not supported
i need of the variable nsquadre because the number of teams can change
i need of array multi dimension, the my code is:
Sub Globals
Dim nsquadre As Intent
Type lista(idsquadra As Int, squadra As String)
End Sub
Sub getnsquadre
Dim SQLResult As Object
SQLResult = sqldb.ExecQuerySingleResult2 ("SELECT nrsquadre FROM tappe WHERE id=?", Array As String( frmtorneo.idtorneo))
If SQLResult = Null Then
Msgbox("Error")
Return
Else
nsquadre=SQLResult
End If
End Sub
Sub getlistaordineclassifica
Dim elenco(nsquadre) As lista
Dim cursore As Cursor
cursore = sqldb.ExecQuery("SELECT partecipanti.idsquadra,squadre.nome,classifica.punteggio FROM partecipanti JOIN squadre ON partecipanti.idsquadra=squadre.id JOIN classifica ON partecipanti.idsquadra=classifica.id_squadra WHERE partecipanti.idtorneo =" & frmtorneo.idtorneo & " ORDER BY classifica.punteggio DESC" )
For i = 0 To cursore.RowCount -1
cursore.Position = i
elenco(i).idsquadra =cursore.GetInt("id")
elenco(i).squadra=cursore.GetInt("nome")
Log(elenco)
Next
cursore.Close
End Sub
but in the moment when the debug switch on the line of code: "Dim elenco(nsquadre) As lista", in compiler comes the following message:
(Line: 187) Dim list (12) As the list
java.lang.RuntimeException: toString not supported
i need of the variable nsquadre because the number of teams can change