[VB.NET] خطأ اثناء تمرير بيانات من DatagrideView الى Report

كود :
ReportViewer1.LocalReport.SetParameters(New Microsoft.Reporting.WinForms.ReportParameter("Re_Date", Ar_Fr5.DateTimePicker1.Value))

        ReportViewer1.LocalReport.SetParameters(New Microsoft.Reporting.WinForms.ReportParameter("Re_Carno", Ar_Fr5.TextBox1.Text))

        ReportViewer1.LocalReport.SetParameters(New Microsoft.Reporting.WinForms.ReportParameter("Re_No", Ar_Fr5.TextBox2.Text))

        ReportViewer1.LocalReport.SetParameters(New Microsoft.Reporting.WinForms.ReportParameter("Re_Total", Ar_Fr5.TextBox4.Text))

        ReportViewer1.LocalReport.SetParameters(New Microsoft.Reporting.WinForms.ReportParameter("Re_Warrenty", Ar_Fr5.TextBox3.Text))



        Try

            DataSet1.DataTable1.Rows.Clear()

            For Each row As DataGridViewRow In Ar_Fr5.DataGridView1.Rows

                If Ar_Fr5.DataGridView1.AllowUserToAddRows And row.Index = Ar_Fr5.DataGridView1.Rows.Count - 1 Then Exit For

                DataSet1.DataTable1.Rows.Add((From c In row.Cells Select c.Value).ToArray)

            Next

        Catch ex As Exception

            MsgBox("تاكد من البيانات")

            Return

        End Try



        ' ربط الداتاست بالتقرير

        ReportViewer1.LocalReport.DataSources(0).Value = DataSet1.DataTable1

        Me.ReportViewer1.RefreshReport()