How can I fixed the chart data error: data cannot be shown in the chart.

Protected Sub btn_Int_Click(sender As Object, e As EventArgs) Handles btn_Int.Click
      Label001.Visible = False
      Label37.Visible = True
      Label39.Visible = True
      Label48.Visible = True
      Label51.Visible = False
      Label52.Visible = False
      Label37.Text = "The Chart of " & Label38.Text & " by Number of Incidents "
      Label48.Text = "From" & " " & Label42.Text & " " & "to" & " " & Label45.Text
      If DropDownList13.SelectedIndex = -1 Then
          Label39.Text = Label40.Text
      Else
          Label39.Text = Label40.Text & Label41.Text
      End If
      btn_Print.Visible = True
      RateChart.Visible = True
          Dim dtInt As DataTable = New DataTable("dtInts")
          For Each cell As TableCell In gvInt.HeaderRow.Cells
              dtInt.Columns.Add(cell.Text.Trim())
          Next
          For Each row As GridViewRow In gvInt.Rows
              dtInt.Rows.Add()
              For i As Integer = 0 To row.Cells.Count = -1
                  Dim j As Integer = i
                  dtInt.Rows(row.RowIndex)(j) = row.Cells(j).Text.Trim()
              Next
          Next
          Dim departments As List(Of String) = New List(Of String)()
          departments = (From p In dtInt.AsEnumerable() Select p.Field(Of String)("Department")).Distinct().ToList()
          If RateChart.Series.Count() = 1 Then
              RateChart.Series.Remove(RateChart.Series(0))
          End If
          For Each department As String In departments.ToList()
              Dim department1 As String = department
              Dim X As Integer()
              X = (From p In dtInt.AsEnumerable()
                      Where p.Field(Of String)("Department") = department1
                      Order By p.Field(Of String)("Period_Shown")
                      Select Convert.ToInt32(p.Field(Of String)("Period_Shown"))).ToArray()
              Dim Y As Decimal()
              Y = (From p In dtInt.AsEnumerable()
                      Where p.Field(Of String)("Department") = department1
                      Order By p.Field(Of String)("Period_Shown")
                      Select Convert.ToDecimal(p.Field(Of String)("Num_Int"))).ToArray()
              departments.Add(department1)
              RateChart.Series.Add(New Series(department1))
              RateChart.Series(department1).IsValueShownAsLabel = True
              RateChart.Series(department1).BorderWidth = 3
              RateChart.Series(department1).ChartType = SeriesChartType.Line
              RateChart.Series(department1).Points.DataBindXY(X, Y)
          Next
      RateChart.Legends(0).Enabled = True
  End Sub