Private Sub InitChart
Private Cursor As Cursor
'ton code SQL
Private ListeValeurs As List
Private nomLune(Cursor.ColumnCount - 1) As String
Private Annee(Cursor.RowCount) As String
ListeValeurs.Initialize
' Lunes = Array As String("Nouvelle lune", "Premier croissant", "Premier quartier", "Gibeuse croissante", "Pleine lune", "Gibeuse décroissante", "Dernier quartier", "Dernier croissan")
'récupère les noms des lunes
For j = 1 To Cursor.ColumnCount - 1
nomLune(j-1) = Cursor.GetColumnName(j)
Next
'récupère les années avec les valeurs
'les valeurs sont mémorisées dans une matrice
For row = 0 To Cursor.RowCount - 1
Annee(row) = Cursor.GetString2(0)
Private Valeurs(Cursor.RowCount - 1, Cursor.ColumnCount - 1) As Double
For col = 1 To Cursor.ColumnCount - 1
Valeurs(row, col - 1) = Cursor.GetDouble2(col)
Next
Next
xChart1.ClearData
'définit les barres
For i = 0 To Annee.Length - 1
xChart1.AddBar(nomLune(i), Colors.RGB(Rnd(0, 256), Rnd(0, 256), Rnd(0, 256)))
Next
'répartit les valeurs par lune
For j = 0 To nomLune.Length - 1
Private Vals(Annee.Length) As Double
For i = 0 To Annee.Length - 1
Vals(i) = Valeurs(i, j)
Next
xChart1.AddBarMultiplePoint(nomLune(j), Vals)
Next
xChart1.DrawChart
End Sub