Код диаграммы в vb.net

Question

Я использовал этот код для круговой диаграммы в vb.net. Это работает нормально, но одна проблема - когда один из yValue равен 0, он показывает 0 в круговой диаграмме.

Я хочу знать, как прекратить показывать значение 0 в круговой диаграмме и что мне нужно исправить в коде, чтобы оно не было 0.

Dim yValues As Double() = {str_total, Totalmale.ToString, Totalfemale.ToString, Totalengagedact.ToString, Totalmaterial.ToString, Totalpattaholder.ToString} ' Getting values from Textboxes 
Dim xValues As String() = {"Total Beneficiary", "Male", "Female", "Engaged in same activity before", "Material Support received", "Patta holder"} ' Headings 
       Dim seriesName As String = Nothing 

       ' Note 1 : Clear chart before fill - VERY IMPORTANT and can generate exception if you are generating 
       '   multiple charts in loop and have not included below lines ! 
       ' Note 2 : Chrt variable here is the Name of your Chart 
       Chart1.Series.Clear() 
       Chart1.Titles.Clear() 

       ' Give unique Series Name 
       seriesName = "ChartInv" 
       Chart1.Series.Add(seriesName) 

       ' Bind X and Y values 
       Chart1.Series(seriesName).Points.DataBindXY(xValues, yValues) 

       ' Define Custom Chart Colors 
       Chart1.Series(seriesName).Points(0).Color = Color.MediumSeaGreen 
       Chart1.Series(seriesName).Points(1).Color = Color.PaleGreen 
       Chart1.Series(seriesName).Points(2).Color = Color.LawnGreen 
       Chart1.Series(seriesName).Points(3).Color = Color.Blue 
       Chart1.Series(seriesName).Points(4).Color = Color.Red 
       Chart1.Series(seriesName).Points(5).Color = Color.Yellow 

       ' Define Chart Type 
       Chart1.Series(seriesName).ChartType = DataVisualization.Charting.SeriesChartType.Pie 
       Chart1.ChartAreas("ChartArea1").Area3DStyle.Enable3D = True 

       ' If you want to show Chart Legends 
       Chart1.Legends(0).Enabled = True 



       ' If you don't want to show data values and headings as label inside each Pie in chart 
       'Chart1.Series(seriesName)("PieLabelStyle") = "Disabled" 
       'Chart1.Series("ChartInv").IsValueShownAsLabel = False 

       ' If you want to show datavalues as label inside each Pie in chart 
       Chart1.Series(seriesName)("PieLabelStyle") = "Enabled" 
       Chart1.Series("ChartInv").IsValueShownAsLabel = True 

Answer 1

Возьмите Xvalues, Y. После вычисления 0

, например

рассмотрим переменную х, а значение этой переменной в этом случае 0. Dont добавить свою ссылку на либо xvalues ​​или Yvalues ​​