[عبدالله الدوسري]

 Dim dt As New DataTable
dt = CType(DataGridView1.DataSource, DataView).ToTable

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


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


   


   


   


   


   


   



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


المشروع :

  WindowsApplication1.rar (الحجم : 2.35 م ب / التحميلات : 42)

[elgokr]

(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 مع وجود هذة الملفات سيعمل البرنامج في أي جهاز
والمراجع تؤشر إلى مكانها في مشروعك.
 


المشروع :

مشاء الله الاخوة ما قصرت فى تقديم المساعدة

تحياتى لهم ولك

وتمنياتى للجميع التوفيق 

[larbihamri]

السلام عليكم
و الله يعجز اللسان عن شكركم جميعا 
ما علي الا ان ادعو لكم الرحمن ان يحفظكم و يرضى عنكم و يرضى عنكم الوالدين و يرزقكم ذرية صالحة و يزيدكم علما على علم