Пытается создать динамическую диаграмму Dundas Stackedarea

Question

Добрый день. Я пытаюсь исследовать и еще не найти кого-либо, у кого есть пример этого, я обычно не прошу о помощи, я просто понимаю это, но этот меня убивает! Я пытаюсь создать диаграмму с разбивкой по областям динамически, я уже могу создать динамическую диаграмму области, но не могу на всю жизнь понять, как получить таблицу с разбивкой по областям, чтобы уложить серию. Я сделал что-то похожее в excel, и я могу получить его на диаграмме, но это не динамично. У меня есть данные, выложенные так: How the data is laid out

И это, как я хочу, чтобы график выглядеть: How I want the chart to look

Как я могу связать данные по категориям или независимо от того, что мне нужно сделать ? У меня есть данные в массиве, но я просто не могу понять, как получить диаграмму в стек. Может ли кто-нибудь помочь? Если вам нужна дополнительная информация, спросите, я знаю, что я не включаю свой код, в основном потому, что он очень уродлив и вытягивается, но может попытаться немного сжать его и упростить, если кому-то это понадобится.

Мой код ниже (возможно, что поможет, даже если это некрасиво)

For tmpatozgroup = 1 To 1 
      Dim chart1 As New Chart() 
      chart1.ID = "chrt-" & tmpatozgroup & "-" & atozser 
      Dim seriesperrow As Integer 

      Dim chartArea1 As New ChartArea() 
      chart1.Height = 340 
      chart1.Palette = ChartColorPalette.Dundas 
      chart1.BackColor = System.Drawing.Color.LightGray 
      chart1.BorderSkin.SkinStyle = BorderSkinStyle.Emboss 
      chart1.BorderLineColor = System.Drawing.Color.Gray 
      chart1.BorderLineStyle = ChartDashStyle.Solid 
      chart1.BorderLineWidth = 4 
      ' Set the ChartArea properties 
      chartArea1.Name = "Default" 
      chartArea1.BackColor = System.Drawing.Color.LightGray 
      chartArea1.AxisX.LabelsAutoFit = False 
      chartArea1.AxisX.LabelStyle.FontAngle = -45 
      chartArea1.Area3DStyle.Enable3D = True 
      chart1.ChartAreas.Add(chartArea1) 
      Dim series1 As New Series() 

      series1.Name = tblGrouping1(tmpatozgroup, 0) 
      chart1.Series.Add(series1) 
      chart1.Legends.Clear() 
      If Not IsNothing(tblGrouping1(tmpatozgroup, 0)) Then 
       For tmpatozgroup2 = 1 To 9 

        Dim legend1 As New Legend() 
        Dim sername As String 
        Dim servalues() As Double 
        Dim serformat As String 
        Dim chrtSeriesCnt As Integer 

          sername = tblGrouping1(0, tmpatozgroup2) 
          'need to tear the current row out of the array and place in tmpseries 
          Dim tmpatozcnt As Integer 
          For tmpatozcnt = 1 To 999 
           If IsNothing(tblGrouping1(0, tmpatozcnt)) Then atozseries = tmpatozcnt : Exit For 
           tmpSeries(tmpatozcnt) = tblGrouping1(tmpatozgroup2, tmpatozcnt) 
           chrtSeriesLabels(tmpatozcnt) = tblGrouping1(0, tmpatozcnt) 
          Next 
          servalues = tmpSeries 
          serformat = chrtSeriesForm1 


        chart1.Width = 1000 
        seriesperrow = 1 

        'chart1.AlignDataPointsByAxisLabel() 

        series1.Type = SeriesChartType.StackedColumn 
        series1("StackedGroupName") = "'" & tblGrouping1(tmpatozgroup, 0) & "'" 
        If Not IsNothing(tblGrouping1(tmpatozgroup, 0)) Then 

         For Each ser As Series In chart1.Series 

          For i2 As Integer = 1 To atozseries - 1 

           ser.Points.AddXY(chrtSeriesLabels(i2), servalues(i2 - 1)) 
           ser.Points(i2 - 1).BorderColor = Drawing.Color.FromArgb(Split(sercolor(i2), "|")(0), Split(sercolor(i2), "|")(1), Split(sercolor(i2), "|")(2)) 
           ser.Points(i2 - 1).Color = Drawing.Color.FromArgb(Split(sercolor(i2), "|")(0), Split(sercolor(i2), "|")(1), Split(sercolor(i2), "|")(2)) 
           'ser.XAxisType = AxisType.Secondary 

           Dim tooltipformat As String 
           If serformat = "Currency" Then serformat = "$#,##0.00" : tooltipformat = "{$#,#.00}" 
           If serformat = "###,###,##0.00" Then serformat = "#,##0.00" : tooltipformat = "{#,#}" 
           If serformat = "###,###,##0" Then serformat = "0" : tooltipformat = "{#,#}" 
           ser.Points(i2 - 1).ToolTip = ser.Points(i2 - 1).AxisLabel & " : #VALY" & tooltipformat 

          Next 
          chart1.ChartAreas(0).AxisX.Interval = 1 
          chart1.ChartAreas(0).AxisX.LabelStyle.Interval = 1 
          chart1.ChartAreas(0).AxisX.Title = "test" 'chrtXAxisName 
          chart1.ChartAreas(0).AxisY.Title = sername 
          chart1.ChartAreas(0).AxisY.LabelStyle.Format = serformat 
          chart1.Palette = ChartColorPalette.Dundas 
         Next 

        End If 
       Next 
       If seriesonrow = seriesperrow Or seriesonrow = 0 Then 
        tr = New TableRow 
        tr.CssClass = "charts column" 
        tr.Style("display") = "none" 

       End If 
       td = New TableCell 
       td.HorizontalAlign = HorizontalAlign.Center 
       td.ColumnSpan = 6/seriesperrow 
       td.Controls.Add(chart1) 
       tr.Cells.Add(td) 
       tblReport.Rows.Add(tr) 
       chart1 = Nothing 
      End If 
     Next 

Благодаря кучу заранее! Позже

Answer 1

Вот пример:

<asp:Chart ID="Chart1" runat="server" Width="600px"> 
     <Series> 
      <asp:Series Name="Series1" ChartType="StackedArea"> 
       <Points> 
        <asp:DataPoint XValue="1" YValues="10" /> 
        <asp:DataPoint XValue="2" YValues="20" /> 
        <asp:DataPoint XValue="3" YValues="30" /> 
        <asp:DataPoint XValue="4" YValues="15" /> 
       </Points> 
      </asp:Series> 
      <asp:Series ChartArea="ChartArea1" ChartType="StackedArea" Name="Series2"> 
       <Points> 
        <asp:DataPoint XValue="1" YValues="20" /> 
        <asp:DataPoint XValue="2" YValues="40" /> 
        <asp:DataPoint XValue="3" YValues="60" /> 
        <asp:DataPoint XValue="4" YValues="45" /> 
       </Points> 
      </asp:Series> 
     </Series> 
     <ChartAreas> 
      <asp:ChartArea Name="ChartArea1"> 
       <AxisY> 
        <MajorGrid LineColor="DarkGray" LineDashStyle="Dot" /> 
       </AxisY> 
       <AxisX> 
        <MajorGrid LineColor="DarkGray" LineDashStyle="Dot" /> 
       </AxisX> 
      </asp:ChartArea> 
     </ChartAreas> 
    </asp:Chart> 

EDIT: Использование кода позади:

protected void Page_Load(object sender, EventArgs e) 
    { 
     Chart chart1 = new Chart(); 

     ChartArea area1 = new ChartArea("Area1"); 

     Series series1 = new Series(); 
     series1.ChartType = SeriesChartType.StackedArea; 
     series1.Points.Add(new DataPoint { XValue = 1, YValues = new double[] { 10 } }); 
     series1.Points.Add(new DataPoint { XValue = 2, YValues = new double[] { 20 } }); 
     series1.Points.Add(new DataPoint { XValue = 3, YValues = new double[] { 30 } }); 
     series1.Points.Add(new DataPoint { XValue = 4, YValues = new double[] { 15 } }); 
     series1.ChartArea = "Area1"; 

     Series series2 = new Series(); 
     series2.ChartType = SeriesChartType.StackedArea; 
     series2.Points.Add(new DataPoint { XValue = 1, YValues = new double[] { 20 } }); 
     series2.Points.Add(new DataPoint { XValue = 2, YValues = new double[] { 40 } }); 
     series2.Points.Add(new DataPoint { XValue = 3, YValues = new double[] { 60 } }); 
     series2.Points.Add(new DataPoint { XValue = 4, YValues = new double[] { 45 } }); 
     series2.ChartArea = "Area1"; 

     chart1.ChartAreas.Add(area1); 
     chart1.Series.Add(series1); 
     chart1.Series.Add(series2); 

     Controls.Add(chart1); 
    } 

EDIT 2: добавление легенды:

protected void Page_Load(object sender, EventArgs e) 
    { 
     Chart chart1 = new Chart(); 

     ChartArea area1 = new ChartArea("Area1"); 

     Legend legend1 = new Legend("Legend1"); 
     legend1.Docking = Docking.Top; 
     legend1.Alignment = System.Drawing.StringAlignment.Center; 

     Series series1 = new Series("Bought"); 
     series1.ChartType = SeriesChartType.StackedArea; 
     series1.Points.Add(new DataPoint { XValue = 1, YValues = new double[] { 10 } }); 
     series1.Points.Add(new DataPoint { XValue = 2, YValues = new double[] { 20 } }); 
     series1.Points.Add(new DataPoint { XValue = 3, YValues = new double[] { 30 } }); 
     series1.Points.Add(new DataPoint { XValue = 4, YValues = new double[] { 15 } }); 
     series1.ChartArea = "Area1"; 
     series1.Legend = "Legend1"; 

     Series series2 = new Series("Sold"); 
     series2.ChartType = SeriesChartType.StackedArea; 
     series2.Points.Add(new DataPoint { XValue = 1, YValues = new double[] { 20 } }); 
     series2.Points.Add(new DataPoint { XValue = 2, YValues = new double[] { 40 } }); 
     series2.Points.Add(new DataPoint { XValue = 3, YValues = new double[] { 60 } }); 
     series2.Points.Add(new DataPoint { XValue = 4, YValues = new double[] { 45 } }); 
     series2.ChartArea = "Area1"; 
     series2.Legend = "Legend1"; 

     chart1.ChartAreas.Add(area1); 
     chart1.Legends.Add(legend1); 
     chart1.Series.Add(series1); 
     chart1.Series.Add(series2); 

     Controls.Add(chart1); 
    }