Subtotal Class

This example shows how to create a chart with a data series of the waterfall view.

• Add a series to a chart.
• Specify the series data members.
• Use the WaterfallSeriesView (see WaterfallSeriesView) object to configure the series view options.

• Specify value options. If data source stores value differences, use the WaterfallRelativeValueOptions. Use the WaterfallAbsoluteValueOptions class if the data source stores absolute data values.

  C#

  private void Form1_Load(object sender, EventArgs e) { chartControl1.DataSource = LoadDataTableFromXml("../../Data/carbon.xml", "CarbonContribution"); Series series = new Series("Carbon Balance", ViewType.Waterfall); series.SetDataMembers("Year", "Contribution"); series.ArgumentScaleType = ScaleType.Qualitative; chartControl1.Series.Add(series); ((WaterfallSeriesLabel)series.Label).Position = WaterfallSeriesLabelPosition.OutsideEnd; series.LabelsVisibility = DevExpress.Utils.DefaultBoolean.True; WaterfallSeriesView view = series.View as WaterfallSeriesView; if (view != null) { view.RisingBarColor = Color.FromArgb(218, 88, 89); view.FallingBarColor = Color.FromArgb(146, 206, 181); view.SubtotalBarColor = Color.Gray; view.TotalBarColor = Color.DarkGray; view.StartBarColor = Color.LightGray; view.ConnectorColor = Color.Black; view.ConnectorStyle.Thickness = 1; WaterfallRelativeValueOptions valueOptions = view.ValueOptions as WaterfallRelativeValueOptions; if (valueOptions != null) { valueOptions.StartBarLabel = "1989"; valueOptions.StartBarValue = 2766D; valueOptions.ShowTotal = true; valueOptions.TotalLabel = "2018"; valueOptions.Subtotals.Add(new Subtotal { PointIndex = 16, Label= "February 16, 2005" }); } } }

  VB

  Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) chartControl1.DataSource = LoadDataTableFromXml("../../Data/carbon.xml", "CarbonContribution") Dim series As Series = New Series("Carbon Balance", ViewType.Waterfall) series.SetDataMembers("Year", "Contribution") series.ArgumentScaleType = ScaleType.Qualitative chartControl1.Series.Add(series) (CType(series.Label, WaterfallSeriesLabel)).Position = WaterfallSeriesLabelPosition.OutsideEnd series.LabelsVisibility = DevExpress.Utils.DefaultBoolean.[True] Dim view As WaterfallSeriesView = TryCast(series.View, WaterfallSeriesView) If view IsNot Nothing Then  view.RisingBarColor = Color.FromArgb(218, 88, 89) view.FallingBarColor = Color.FromArgb(146, 206, 181) view.SubtotalBarColor = Color.Gray view.TotalBarColor = Color.DarkGray view.StartBarColor = Color.LightGray view.ConnectorColor = Color.Black view.ConnectorStyle.Thickness = 1 Dim valueOptions As WaterfallRelativeValueOptions = TryCast(view.ValueOptions, WaterfallRelativeValueOptions) If valueOptions IsNot Nothing Then  valueOptions.StartBarLabel = "1989"  valueOptions.StartBarValue = 2766R valueOptions.ShowTotal = True  valueOptions.TotalLabel = "2018"  valueOptions.Subtotals.Add(New Subtotal With { .PointIndex = 16, .Label = "February 16, 2005"  }) End If  End If  End Sub