(28-05-18, 10:23 PM)mrnooo2000 كتب : بعد اذن الأخ الجوكر 

استخدم  هذا الكود

كود :

       Dim dt As New DataTable
       dt.Columns.Add("column1", Type.GetType("System.String"))
       dt.Columns.Add("column2", Type.GetType("System.String"))
       Dim r As DataRow
       For i = 0 To DataGridView1.Rows.Count - 1
           r = dt.NewRow
           r(0) = DataGridView1.Item(0, i).Value.ToString
           r(1) = DataGridView1.Item(1, i).Value.ToString
           dt.Rows.Add(r)
       Next
       Dim datasource As New ReportDataSource("DataSet1", dt)
       Form2.ReportViewer1.LocalReport.DataSources(0) = datasource
       Form2.ShowDialog()

لكن لاحظ أخى أننى غيرت أسما الحقول الى column1 و column1
لأن التسميات العربية تنتج أخطاء و خصوصا مع وجود المسافات 

غير الأسماء لديك بالداتا سيت و بالريبورت الى نفس الاسماء أولا

(28-05-18, 10:33 PM)عبدالله الدوسري كتب :  Dim dt As New DataTable
dt = CType(DataGridView1.DataSource, DataView).ToTable

لا يوجد DataSource أصلاً في الـ DataGridView1
لذلك أكيد سيظهر خطاء عند إستخدام الوظيفة ToTable


إتبع الخطوات لربط البيانات بشكل سليم :






















لاحظ في ملفات المشروع قمت بإرفاق ملفات الـReportViewer أخر نسخة رقم 14 مع وجود هذة الملفات سيعمل البرنامج في أي جهاز
والمراجع تؤشر إلى مكانها في مشروعك.
 


المشروع :