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

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

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

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

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

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

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

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

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

أضف نموذج وضع عليه 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

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

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

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

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

م.محمد نفاع

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

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

PrintDataGridViewToCrystalReport.zip

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