- PR -

MSChartが受け取るデータについて

1
投稿者投稿内容
れしぴ
会議室デビュー日: 2008/01/30
投稿数: 5
投稿日時: 2008-02-13 14:35
この度はお世話になります。

VB2005EEにてMSChartを使用し、折れ線グラフを書いています。
下記のようなコードになります。

sumKeikaku=0
sumJisseki=0
For intRow = 0 To intRowCount - 1
sumKeikaku = sumKeikaku +ds.Tables("T_GRAPH").Rows(intRow).Item("keikaku")
sumJisseki = sumJisseki +ds.Tables("T_GRAPH").Rows(intRow).Item("Jisseki")
arry(intRow, 0) = sumKeikaku
arry(intRow, 1) = sumJisseki
MsgBox(arry(intRow, 0))
Next
With AxMSChart1
.ColumnCount = 2
.ShowLegend = True
.Plot.SeriesCollection(1).LegendText = "計画"
.Plot.SeriesCollection(2).LegendText = "実績"
.ChartData = arry
For i = 1 To intRowCount
.DataGrid.RowLabel(i, 1) = i
Next
End With

困っているのは
arry(intRow, 0) = sumKeikaku
の部分です。
上記コードでデバッグするとグラフ上に折れ線が表示されません。

試しに
arry(intRow, 0) = 1000
または
arry(intRow, 0)=ds.Tables("T_GRAPH").Rows(intRow).Item("keikaku")
と記述すれば折れ線自体は表示されます。

sumKeikaku=1000
arry(intRow,0)=sumKeikaku
だと折れ線が表示されません。

いずれの場合もarryの値をmsgboxで参照すれば
参照可能です。

どのパターンで記述しても、できあがったarryに
折れ線を表示する上での差異はないと思うのですが
MSChartへの受け渡しに何か制約があるのでしょうか？


[ メッセージ編集済み 編集者: れしぴ 編集日時 2008-02-13 14:37 ]
1

スキルアップ／キャリアアップ（JOB@IT）