How to assign values for two series of Radpiechart

[Kishor]

hello sir

 I have Piechart with two series
my x values for both series is same but y values are diffrent

but when i assign them ,both the series are updated with values of series 2


For both series I am passing different values , but when i assign Datatable to RadChart2 it takes only values of series 2 and assign for both series

please help me
waiting for reply

 

<telerik:RadChart ID="RadChart2" runat="server" Height="400px" Visible ="false" Skin ="DeepBlue"
              Width="900px" OnItemDataBound="RadChart2_ItemDataBound" AutoLayout="true" AutoTextWrap="true" IntelligentLabelsEnabled ="true" >
      <Series>
            <telerik:ChartSeries Name="Cost_Of_Job" Type="Pie" DataYColumn="Count"  >
               <Appearance LegendDisplayMode="ItemLabels">
               </Appearance>
            </telerik:ChartSeries>

            <telerik:ChartSeries Name="Total_Invoice" Type="Pie" DataYColumn="Count" Visible ="false">
               <Appearance LegendDisplayMode="ItemLabels">
               </Appearance>
            </telerik:ChartSeries>
        </Series>

     </telerik:RadChart>

Protected Sub UpdateChart2(ByVal one As Double, ByVal two As Double, ByVal three As Double, ByVal four As Double, ByVal five As Double, ByVal six As Double, ByVal seven As Double, ByVal eight As Double, ByVal nine As Double)

 

       Try

           tblCostInvoiceheader.Visible = True

           tblCostInvoiceDetails.Visible = True

           RadChart2.ChartTitle.TextBlock.Text = cbChartBy.Text

           Dim salesSeries As ChartSeries = RadChart2.GetSeries("Cost_Of_Job")

           Dim InvoiceSeries As ChartSeries = RadChart2.GetSeries("Total_Invoice")

           InvoiceSeries.Visible = False

           InvoiceRow.Visible = False

 

 

 

           Dim Total As Double = 0

           Dim one1 As Double = one

           Dim two1 As Double = two

           Dim three1 As Double = three

           Dim four1 As Double = four

           Dim five1 As Double = five

           Dim six1 As Double = six

           Dim seven1 As Double = seven

           Dim eight1 As Double = eight

           Dim nine1 As Double = nine

 

 

           Total = (one + two + three + four + five + six + seven + eight + nine)

 

           one1 = ((one / Total) * 100)

           two1 = ((two / Total) * 100)

           three1 = ((three / Total) * 100)

           four1 = ((four / Total) * 100)

           five1 = ((five / Total) * 100)

           six1 = ((six / Total) * 100)

           seven1 = ((seven / Total) * 100)

           eight1 = ((eight / Total) * 100)

           nine1 = ((nine / Total) * 100)

 

          


           Dim dt As New DataTable

           dt.Columns.Add("Invoice")

           dt.Columns.Add("Count")

           dt.Rows.Add(cbInvoiceStatus.Items(0).Text, one1)

           dt.Rows.Add(cbInvoiceStatus.Items(1).Text, two1)

           dt.Rows.Add(cbInvoiceStatus.Items(2).Text, three1)

           dt.Rows.Add(cbInvoiceStatus.Items(3).Text, four1)

           dt.Rows.Add(cbInvoiceStatus.Items(4).Text, five1)

           dt.Rows.Add(cbInvoiceStatus.Items(5).Text, six1)

           dt.Rows.Add(cbInvoiceStatus.Items(6).Text, seven1)

           dt.Rows.Add(cbInvoiceStatus.Items(7).Text, eight1)

           dt.Rows.Add(cbInvoiceStatus.Items(8).Text, nine1)

 

           RadChart2.Series(0).DataYColumn = "Count"

           RadChart2.DataSource = dt

           RadChart2.DataBind()

 

 

           txtBillable.Text = one

           txtBillableST.Text = two

           txtStartUp.Text = three

           txtStartupST.Text = four

           txtTraningService.Text = five

           txtTrainingSTService.Text = six

           txtWarranty.Text = seven

           txtWarrantyST.Text = eight

           txtUnspecifiedCost.Text = nine

 

 

           'if Invoice vs Cost

 

           If cbChartBy.Text = "Invoice vs Cost" Then

 

               Call CostVSInvoice()

               InvoiceRow.Visible = True

               InvoiceSeries.Visible = True

 

               Dim Total1 As Double = 0

               Dim one2 As Double = 0

               Dim two2 As Double = 0

               Dim three2 As Double = 0

               Dim four2 As Double = 0

               Dim five2 As Double = 0

               Dim six2 As Double = 0

               Dim seven2 As Double = 0

               Dim eight2 As Double = 0

               Dim nine2 As Double = 0

 

 

               Total1 = (CountInvBillable + CountInvBillableST + CountInvStartUp + CountInvStartUpST + CountInvTrainingService + CountInvTrainingSTService + CountInvWarranty + CountInvWarrantyST + CountInvCost)

 

               one2 = ((CountInvBillable / Total1) * 100)

               two2 = ((CountInvBillableST / Total1) * 100)

               three2 = ((CountInvStartUp / Total1) * 100)

               four2 = ((CountInvStartUpST / Total1) * 100)

               five2 = ((CountInvTrainingService / Total1) * 100)

               six2 = ((CountInvTrainingSTService / Total1) * 100)

               seven2 = ((CountInvWarranty / Total1) * 100)

               eight2 = ((CountInvWarrantyST / Total1) * 100)

               nine2 = ((CountInvCost / Total1) * 100)

 

             

               Dim dt1 As New DataTable

               dt1.Columns.Add("Invoice")

               dt1.Columns.Add("Count")

               dt1.Rows.Add(cbInvoiceStatus.Items(0).Text, one2)

               dt1.Rows.Add(cbInvoiceStatus.Items(1).Text, two2)

               dt1.Rows.Add(cbInvoiceStatus.Items(2).Text, three2)

               dt1.Rows.Add(cbInvoiceStatus.Items(3).Text, four2)

               dt1.Rows.Add(cbInvoiceStatus.Items(4).Text, five2)

               dt1.Rows.Add(cbInvoiceStatus.Items(5).Text, six2)

               dt1.Rows.Add(cbInvoiceStatus.Items(6).Text, seven2)

               dt1.Rows.Add(cbInvoiceStatus.Items(7).Text, eight2)

               dt1.Rows.Add(cbInvoiceStatus.Items(8).Text, nine2)

 

               RadChart2.Series(1).DataXColumn = "Count"

               RadChart2.DataSource = dt1

               RadChart2.DataBind()

 

 

               txtInvBillable.Text = CountInvBillable

               txtInvBillableST.Text = CountInvBillableST

               txtInvStartUp.Text = CountInvStartUp

               txtInvStartUpST.Text = CountInvStartUpST

               txtInvTrainingService.Text = CountInvTrainingService

               txtInvTrainingSTService.Text = CountInvTrainingSTService

               txtInvWarranty.Text = CountInvWarranty

               txtInvWarrantyST.Text = CountInvWarrantyST

               txtUnspecifiedInvoice.Text = CountInvCost

 

           End If

 

       Catch ex As Exception

           RadWindowManagerchartbyInvoice.RadAlert(Replace(ex.Message.ToString, "'", "\'"), 380, 100, "Error-UpdateChart2", "")

       End Try

 

   End Sub