Dim listProvider As New ListProvider(dataSource) chart.DataSource = listProvider Dim FieldName As New NumericDataField() FieldName.DataPath = Me.SelectedValueType.FieldName chart.DataSourceSettings.DataFields.Add(FieldName) Dim XAxisFieldName As New NumericDataField() XAxisFieldName.DataPath = formConfiguration.XAxisFieldName chart.DataSourceSettings.DataFields.Add(XAxisFieldName) chart.Series(0).Text = formConfiguration.SeriesControllingListBox.SelectedValue.ToString()
Dim SeriesFieldName As New NumericDataField() SeriesFieldName.DataPath = formConfiguration.SeriesFieldName chart.DataSourceSettings.DataFields.Add(SeriesFieldName) Dim adt As New AnalysisDataTransformer() adt.Pivoting.Add(XAxisFieldName) chart.DataSourceSettings.Transformers.Add(adt) Dim listProvider As New ListProvider(dataSource) Dim crosstabProvider As New CrosstabDataProvider With {.DataSource = listProvider} With chart.DataSourceSettings.Fields .Add(New FieldMap(formConfiguration.SeriesFieldName, FieldUsage.ColumnHeading)) .Add(New FieldMap(formConfiguration.XAxisFieldName, FieldUsage.RowHeading)) .Add(New FieldMap(Me.SelectedValueType.FieldName, FieldUsage.Value)) End With chart.DataSource = crosstabProvider
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)