Пытаясь создать круговую диаграмму

Question

У меня есть переменные, заполненные в моей программе, и в последней форме я пытаюсь отобразить круговую диаграмму, показывающую части каждого расхода в отношении общих затрат. Код я прямо сейчас выглядит следующим образом:

Sub Chart() 
    Chart1.Series("Expenses").ChartType = SeriesChartType.Pie 

    Chart1.Series("Expenses").Points.Add(GlobalVariables.cellphone/totalexpenses * 100) 
    Chart1.Series("Expenses").Points.Add(GlobalVariables.carinsurance/totalexpenses * 100) 
    Chart1.Series("Expenses").Points.Add(GlobalVariables.drappointments/totalexpenses * 100) 
    Chart1.Series("Expenses").Points.Add(GlobalVariables.grocery/totalexpenses * 100) 
    Chart1.Series("Expenses").Points.Add(GlobalVariables.healthinsurance/totalexpenses * 100) 
    Chart1.Series("Expenses").Points.Add(GlobalVariables.medications/totalexpenses * 100) 
    Chart1.Series("Expenses").Points.Add(GlobalVariables.misc/totalexpenses * 100) 
    Chart1.Series("Expenses").Points.Add(GlobalVariables.rent/totalexpenses * 100) 
    Chart1.Series("Expenses").Points.Add(GlobalVariables.therapysessions/totalexpenses * 100) 
    Chart1.Series("Expenses").Points.Add(GlobalVariables.travel/totalexpenses * 100) 


    'Chart1.Width = 700 
    Chart1.Legends.Add("Expenses") 
    Chart1.Legends("Expenses").LegendStyle = LegendStyle.Table 

End Sub 

Когда я запустить программу и включить вызов к югу график не показывает вообще и легенда еще только показывает «Series1.» Что я делаю не так? Как я могу сделать эту работу?

Answer 1

По умолчанию первая серия - «Серия 1», а круговая диаграмма берет пустые данные этой серии. Вам нужно удалить его, если вы будете использовать свою собственную серию. Добавить этот код в первую строку: Chart1.Series.clear