I was able to get it to work. This is how I did it:
Chart2.Data.Series = 3
Dim temp As Integer = 0
Dim J As Integer = 0
Chart2.Data.Points = temp
While (J < temp)
Chart2.AxisX.Labels(J) = tempProject
Chart2.Data.Y(0, J) = (CompletePercent(J))
Chart2.Data.Y(1, J) = (Morethan50CompletePercent(J))
Chart2.Data.Y(2, J) = (Lessthan50CompletePercent(J))
If Lessthan50CompletePercent(J) = "0" Then
Chart2.Data.Y(2, J) = "100"
End If
Chart2.Series(0).PointLabels.Visible = True
Chart2.Series(1).PointLabels.Visible = True
Chart2.Series(2).PointLabels.Visible = True
Chart2.Points(0, J).Text = countcomplete(J)
Chart2.AllSeries.PointLabels.Format = "%L"
Chart2.AllSeries.PointLabels.LineAlignment = StringAlignment.Center
Chart2.Points(1, J).Text = Morethan50Complete(J)
Chart2.Points(2, J).Text = Lessthan50Complete(J)
J += 1
End While
Chart2.Series(0).Color = Color.LightGreen
Chart2.Series(1).Color = Color.LightYellow
Chart2.Series(2).Color = Color.Salmon
Chart2.Series(0).Text =
"100% Completion"
Chart2.Series(1).Text =
"50% to 100% Completion"
Chart2.Series(2).Text =
"Less than 50% Completion"
Chart2.Series(0).Gallery = Gallery.Bar
Chart2.Series(1).Gallery = Gallery.Bar
Chart2.Series(2).Gallery = Gallery.Bar
Dim tempMax As Integer = GetmaxAxisY(TBStart.Text, tempEnddate, measuredate)
Chart2.AxisY.Max = tempMax
Chart2.AxisY.Min = 0
Chart2.AxisY.Max = 100
Chart2.AxisY.Min = 0
Chart2.AxisY.Step = 10
Dim custom1 As ChartFX.WebForms.CustomGridLine
custom1 =
New ChartFX.WebForms.CustomGridLine
custom1.Value = 85
custom1.Color = Color.MediumSlateBlue
custom1.Width = 1.5
custom1.Style = Drawing2D.DashStyle.Dash
Chart2.AxisY.CustomGridLines.Add(custom1)
custom1.Text =
"Org Goal (85%)"