0

我在整个程序中填充了变量，在最后一个表单上，我试图显示一个饼图，显示每笔费用相对于总费用的部分。我现在的代码如下：

  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

当我运行程序并包含对 sub 的调用时，图表根本不显示，图例仍然只显示“Series1”。我究竟做错了什么？我怎样才能使这项工作？

4

1 回答 1

0

默认情况下，第一个系列是“Series1”，饼图采用该系列的空白数据。如果您要使用自己的系列，则需要将其删除。将此代码添加为第一行：Chart1.Series.clear

于 2014-01-25T11:11:23.420 回答