' データテーブルを作成します。
Dim dt1 As New DataTable()
' データソースからデータを取得します。
Dim conPath As String = "Provider=Microsoft.Jet.OLEDB.4.0;" &
vbCr &
vbLf &
"Data Source=C:\\Users\\GPCTAdmin\\Documents\\ComponentOne Samples\\Common\\C1NWind.mdb"
Dim conQuery As String = "SELECT * FROM Cars WHERE Brand = 'BMW' OR Brand = 'Acura'"
' データアダプタを作成します。
Dim da As New OleDbDataAdapter(conQuery, conPath)
' データテーブルを入力します(グラフのデータソース)。
da.Fill(dt1)
' 別のデータテーブルを作成します(単一の系列のデータソース)。
Dim dt As New DataTable()
' データテーブルに列を追加します。
dt.Columns.Add("Cars", GetType(Integer))
dt.Columns.Add("TransmissionSpeed", GetType(Integer))
' データテーブルに行を追加します。
dt.Rows.Add(1, 3)
dt.Rows.Add(2, 6)
dt.Rows.Add(3, 3)
dt.Rows.Add(4, 2)
dt.Rows.Add(5, 3)
' データ系列コレクションをクリアします。
FlexChart1.Series.Clear()
' データ系列を作成します。
Dim series1 As New C1.Win.Chart.Series()
Dim series2 As New C1.Win.Chart.Series()
Dim series3 As New C1.Win.Chart.Series()
' 系列コレクションにデータ系列を追加します。
FlexChart1.Series.Add(series1)
FlexChart1.Series.Add(series2)
FlexChart1.Series.Add(series3)
' 系列の名前
series1.Name = "Cyl"
series2.Name = "Liter"
series3.Name = "Transmission Speed"
' 全体チャートのデータソースを指定します。
FlexChart1.DataSource = dt1
' 系列の別のデータソースを指定します。
series3.DataSource = dt
' チャートのX軸をバインドします。
FlexChart1.BindingX = "Model"
' それぞれのフィールドに系列をバインドします。
series1.Binding = "Cyl"
series2.Binding = "Liter"
series3.Binding = "TransmissionSpeed"
' 全体チャートのチャートタイプを設定します。
FlexChart1.ChartType = C1.Chart.ChartType.Column
' 系列に異なるチャートタイプを設定します。
series3.ChartType = C1.Chart.ChartType.LineSymbols