Generazione grafico senza componenti

[[trodat]]

Ciao al forum.

Sto utilizzando uno script per la generazione di grafici senza installazione di componenti sul server.

Lo script funziona correttamente sino a cinque colonne, appena inserisco la sesta colonna va in errore:

Error Type:
Microsoft VBScript runtime (0x800A0009)
Indice non incluso nell'intervallo.: 'intColNum'

la riga dell'errore è questa:

For intColNum = 0 To intNumOfCols - 1
varBarColor = SeriesColorArray(intColNum)
varLegendSeriesLabel = LegendSeriesLabelArray(intColNum)
intLegendHorizPosFromRight = ChartDataAreaWidth / 2
Next	' Next intColNum.

mentre così personalizzo il numero delle colonne da visualizzare sul grafico:

Dim objjpsvbChart
Dim aChartXAxisDataLabel(3) ' Max row num - 1, note arrays start at 0.
Dim aChartData(6, 3) ' Max fld num - 1, max row num minus 1, note arrays start at 0.
Dim aChartLegendSeriesLabel(5) ' Max fld num - 1, note arrays start at 0.

' Fill aChartData.
' (Row 1.)
aChartData(0, 0) = a
aChartData(1, 0) = b
aChartData(2, 0) = c
aChartData(3, 0) = d
aChartData(4, 0) = e
aChartData(5, 0) = f
aChartData(6, 0) = g

potete aiutarmi?
grazie

[viki1967]

Ciao, correggi così:

Dim objjpsvbChart
Dim aChartXAxisDataLabel(3) ' Max row num - 1, note arrays start at 0.
Dim aChartData(6, 3) ' Max fld num - 1, max row num minus 1, note arrays start at 0.
Dim aChartLegendSeriesLabel(6) ' Max fld num - 1, note arrays start at 0.