[larbihamri]

السلام عليكم و كيف حال الجميع
من فضلكم كيف يمكنني ان املأ الداتاسيت من الداتا قريد فيو
مع العلم انا الداتاسيت سيتم ربط الريبورت معها 
الفكرة هي كالأتي :
يتم نقل بيانات الداتا قريد الى الداتاسيت مصممة مسبقا و من تم يقوم الريبوت فيو بأخذ البيانات منها 

صح فطوركم 

[elgokr]

طبق هذا الكود

ولكن تاكد بانك قمت بانشاء DataSet1

خاصة بالتقرير وتحتوى نفس مسميات اعمدة DataGridView1

كود :

Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
       Dim dt As New DataTable
       dt = CType(DataGridView1.DataSource, DataView).ToTable
       Dim datasource As New ReportDataSource("DataSet1", dt)
       Form2.ReportViewer1.LocalReport.DataSources(0) = datasource
       Form2.ReportViewer1.Refresh()
   End Sub

تحياتى لك

وتمنياتى لك التوفيق

[larbihamri]

شكرا بارك الله فيك 
لكن اخي الفاضل انا في هذه الحالة لا اربط الداتا قريد مع قاعدة البيانات و ليس لها الداتاسورس و عند تنفيذي للكود تطلع لي رسالة خطأ

[elgokr]

الشكر لله

قم بوضع رسالة الخطاء

لاتمكن من افادتك

وفى الكود لسابق لم اقوم بعمل اى اكواد استعلام او ما يدل على قاعدة البيانات

كل الفكرة من الكود ان تحول محتوى DataGridView1 الى DataTable

ليتم عملية نسخ البيانات من DataTable الى DataSet1

ولتحنب اى اخطاء يجب ان يكون مسميات الاعمدة فى كلاهما واحد

تحياتى لك

[larbihamri]

كود الرسالة : Object reference not set to an instance of an object
لقد قمت بتسمية اعمدة الداتاسيت مثل مسميات الداتا قريد

[elgokr]

(28-05-18, 04:02 PM)larbihamri كتب : كود الرسالة : Object reference not set to an instance of an object
لقد قمت بتسمية اعمدة الداتاسيت مثل مسميات الداتا قريد

اذا كان صحيح تم التسمية بنس التسمية

لما كان تم ذكر تلك الرسالة

حاول ان تجعل المسميات فى كلا الاثنين بالانجليزية وبدون مسافات

وقم بالتجربة وفى حالة النجاح

ساوم بتوضيح كيفية عرض المسميات الانجليزية الى العربية فى عرض الفورم

خاصة : DataGridView1 

تحياتى لك

[larbihamri]

و الله يا اخي الفاضل مازالت نفس رسالة الخطأ تظهر

اذا كان بإمكانك الق نظرة على الملف المرفف

[elgokr]

(28-05-18, 05:26 PM)larbihamri كتب : و الله يا اخي الفاضل مازالت نفس رسالة الخطأ تظهر

اذا كان بإمكانك الق نظرة على الملف المرفف

انتظرني حتى بعد الافطاء

حتى اقوم بانشاء مشروع طبقاً لمشروعك

لان عند تحميل ما بالمرق ومحاولة فتح Form2 يظهر يحدث خطاء

واتمني من الله ان لا اسهو عن ذلك

تحياتى لك

[larbihamri]

صح فطورك أخي الفاضل تقبل الله منا و منك صالح الأعمال

[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
لأن التسميات العربية تنتج أخطاء و خصوصا مع وجود المسافات 

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