VB code:
Dim series As ChartSeries = New ChartSeries("Revenue", ChartSeriesType.Spline)
series.Text = series.Name
series.Type = ChartSeriesType.Spline
Dim i As Integer
For i = 0 To dataSet.Tables("Demo").Rows.Count - 1
Dim p As Double = dataSet.Tables("Demo").Rows(i).ItemArray(1)
series.Points.Add(dataSet.Tables("Demo").Rows(i).ItemArray(0) * 10, p)
Next
Me.ChartWebControl1.PrimaryXAxis.ValueType = ChartValueType.Double
Me.ChartWebControl1.PrimaryXAxis.RangeType = ChartAxisRangeType.Auto
Me.ChartWebControl1.PrimaryYAxis.ValueType = ChartValueType.Double
Me.ChartWebControl1.PrimaryYAxis.RangeType = ChartAxisRangeType.Auto
Me.ChartWebControl1.PrimaryXAxis.Title = "Month"
Me.ChartWebControl1.Text = "Auditing"
Me.ChartWebControl1.PrimaryYAxis.Title = "Revenue"
Dim color1 As System.Drawing.Color() = New System.Drawing.Color() {Color.FromArgb(150, 172, 90), Color.FromArgb(197, 229, 92), Color.FromArgb(150, 172, 90)}
Me.ChartWebControl1.Series(0).Style.Interior = New BrushInfo(GradientStyle.Horizontal, color1)
Me.ChartWebControl1.Series(0).Style.Border.Color = Color.FromArgb(112, 124, 40)
Prog_883999e.zip
