الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

طباعة محتويات داتا جريد

بدأه mohamed_nor_eldin في 27 ديسمبر 2007 · 9 رد · 1,514 مشاهدة · في Microsoft Visual Basic.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم جميعا

بجد فى البدايه ولانى لازم اعمل دا انا بشهد ان الموقع دا من افضل المواقع اللى شفتها فى حياتى فى البرمجه وربنا يكرم ويجازى كل فرد بيعلم على قدر استطاعته اخوته الاخرين

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

ويسلام لو فى حد يوضحلنا ادوات البرنتر كلها بالتفصيل اكون شاكر وربنا يكرمه ان شاء الله بالتوفيق فى حياته

الموضوع ضرورى واتمنى من جهابزت المنتدى الافاده انا شغال على 2005

#2

طب فين عمالقت المنتدى يا ريت حد من ذوى الخبره يفيدنا

#3

يا اخوه طب حد يرد عليا ويقولى ان مفيش حل عندكم بدل ما انا برد على نفسى كدا

انا عندى حل ليها بس معقد وكنت اتمنى انى الاقى حل اسهل بالكود هنا ارجو من الاخوه الرد ؟؟

#4

وعليكم السلام ورحمة الله وبركاته

عندي طريقة ياأخي جميلة ولكن مع استخدام الكريستال ريبورت.. تحب أدرجها ؟

فلسطين الزاهية بألوان الحب والسلام

ذلك الطعم الزيتوني الذي يتدفق عسلاً من أفواه بساتينها وحدائقها

تشتاق إليها نفوس المتقين وترنوا للسجود فيها جباه المسلمين

#5

أرفقها يا أخي seahmad إدا سمح صاحب الموضوع .. أو إفتح موضوع جديد الله يبارك فيك .. فأنا عندي نقصان في Crystal Report و أود أن أعرف عنه أكثر فأكثر ...

تم تعديل هذه المشاركة بواسطة Fikou-sama في 30 ديسمبر 2007 في 22:19

مقالاتي في VB.NET وبرامجي على موقعي الجديد :

#6

بسم الله الرحمن الرحيم

أنشئ مشروع جديد

أضف نموذج وضع عليه DataGrid1 وأضف الحقول التي تريد

أضف نموذج آخر ومن قائمة الأدوات اسحب الأداة Crystal Report Viewer عليه

اضغط بالزر اليمين على اسم المشروع واختر Add-> New Item وأضف DataSet1……………………………………

أضف DataTable1 للـDataSet1 وأضف للـ DataTable1 حقول مشابهة لحقول الـ DataGrid1

والأن أضف كريستال ريبوت جديد واجعل DataSet1 هي مصدر البيانات له

والآن سننتقل للكود:

Dim ds As New DataSet1

Dim t As DataTable

Dim dr As DataRow

Dim i As Int16 = 0

Do While i < DataGridView1.Rows.Count - 1

t = ds.Tables("DataTable1")

dr = t.NewRow

dr(0) = DataGridView1.Rows(i).Cells(0).Value.ToString

dr(1) = DataGridView1.Rows(i).Cells(1).Value.ToString

dr(2) = DataGridView1.Rows(i).Cells(2).Value.ToString

t.Rows.Add(dr)

i+=1

Loop

Dim fr1 As New FormReport

Dim cr1 As New CrystalReport1

cr1.Database.Tables(0).SetDataSource(ds)

fr1.CrystalReportViewer1.ReportSource = cr1

fr1.Show()

انظر أيضا للمثال المرفق

PrintDataGridViewToCrystalReport.zip

فلسطين الزاهية بألوان الحب والسلام

ذلك الطعم الزيتوني الذي يتدفق عسلاً من أفواه بساتينها وحدائقها

تشتاق إليها نفوس المتقين وترنوا للسجود فيها جباه المسلمين

#7

جزاك الله كل خير أخي seahmed ....

مقالاتي في VB.NET وبرامجي على موقعي الجديد :

#8

بسم الله الرحمن الرحي

الاخوه الكرام

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

م.محمد نفاع

#9

استخدم جملة شرطية قبل اسناد قيمة الحقل للمتغير للتأكد من ان الحقل في الداتا جريد يحتوي بيانات

أنظر المثال المرفق بعد التعديل

PrintDataGridViewToCrystalReport.zip

فلسطين الزاهية بألوان الحب والسلام

ذلك الطعم الزيتوني الذي يتدفق عسلاً من أفواه بساتينها وحدائقها

تشتاق إليها نفوس المتقين وترنوا للسجود فيها جباه المسلمين

#10

ألف شكر اخي العزيز على هذا البرنامج الرائع.. :clapping:

مواضيع مشابهة