2015-10-19 74 views
2

下午好。我试图研究,但还没有找到任何有这方面例子的人,我通常不会寻求帮助,我只是想出了办法,但是这个人正在杀死我!我试图动态创建一个堆积面积图,我已经可以创建一个动态面积图,但不能为我的生活弄清楚如何获得堆积面积图来堆叠这个系列。我在excel中做了类似的事情,并且我可以很好地表示它,但它不是动态的。 我有一个是奠定了这样的数据: How the data is laid out试图创建一个动态的Dundas Stackedarea图表

这是我多么希望图表看: 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 

感谢一大堆提前! 后来

+0

这是用于WinForms的吗?的WebForms? WPF? – jsanalytics

+0

对不起,它在aspx,VB.net目前,dundas.charting.webcontrol是命名空间,我猜测webforms。 –

+0

我正在建议'System.Web.UI.DataVisualization.Charting',它有一个'StackedArea'图表类型,但听起来你已经在使用别的东西了。 – jsanalytics

回答

0

这里有一个例子:

<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> 

enter image description here

编辑:使用代码隐藏:

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); 
    } 

编辑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); 
    } 
+0

非常感谢。你会碰巧有一个动态的例子吗?我看到它是如何工作的,但是如果我想在代码中动态生成代码然后将其添加到页面中,那么您是否有任何代码?我已经添加了名称空间,但我无法弄清楚如何使用它创建图表。 –

+0

我现在没有一个,但它几乎看起来像你已经在你的文章中做了什么。 – jsanalytics

+0

我添加了代码隐藏,请看看。 – jsanalytics