منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

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

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


إتبع الخطوات لربط البيانات بشكل سليم :
[attachment=18214]


[attachment=18215]


[attachment=18217]


[attachment=18218]


[attachment=18223]


[attachment=18219]


[attachment=18220]



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


المشروع :
[attachment=18213]

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


المشروع :

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