منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
كود تصدير البيانات من الداتاجريدفيو الى اكسل - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : كود تصدير البيانات من الداتاجريدفيو الى اكسل (/showthread.php?tid=37403)

الصفحات: 1 2

كود تصدير البيانات من الداتاجريدفيو الى اكسل - سلام و محبه - 06-01-21

السلام عليكم و رحمة الله و بركاته
عند نقر زر تصدير يظهر error


RE: كود تصدير البيانات من الداتاجريدفيو الى اكسل - gggggggggg - 06-01-21

ExlWorkSheet = ExlWorkBook.Sheets.Add
ExlWorkSheet.Name = "sheet1"

RE: كود تصدير البيانات من الداتاجريدفيو الى اكسل - سلام و محبه - 07-01-21

شكرا ggggggg
عدلت الكود

ظهر هكذا


RE: كود تصدير البيانات من الداتاجريدفيو الى اكسل - gggggggggg - 07-01-21

ExlWorkSheet.Cells(r + 2, c + 1 ) = Dgv.Rows( r ).Cells( c ).Value.ToString

RE: كود تصدير البيانات من الداتاجريدفيو الى اكسل - سلام و محبه - 08-01-21

شكرا لك يا اخ ggggggggg
مرفق المشروع الذى حيرنى فى التصدير الى اكسل ارجو ان تجربه و تعدله
الداتابيس اسمها الحقيقى db_account لكن المرفقه اسمها s من نوع sqlserver 2008
[attachment=26263]
ارجو ان تجربه و تعدله

RE: كود تصدير البيانات من الداتاجريدفيو الى اكسل - سلام و محبه - 08-01-21

ارجو ان تجربه و تعدله

RE: كود تصدير البيانات من الداتاجريدفيو الى اكسل - Ashref - 08-01-21

وعليكم السلام

يوجد Null في بيانات الجدول وهو الذي يتسبب في الخطا
لابد من التحقق من القيمه

وبما ان الكود يقرا من الداتاجريد فيكون التحقق ب IsNot Nothing لكن بدون ToString مثل
If Dgv.Rows®.Cells©.Value IsNot Nothing Then

RE: كود تصدير البيانات من الداتاجريدفيو الى اكسل - سلام و محبه - 08-01-21

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

كيف اعدل الكود؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟
لو سمحت ساعدنى كيف اكتبه

RE: كود تصدير البيانات من الداتاجريدفيو الى اكسل - Ashref - 08-01-21

اقصد ال NULL في اول سطرين ع اليمين خالص واضحه في الصوره

الكود
If Dgv.Rows®.Cells©.Value IsNot Nothing Then
   ExlWorkSheet.Cells(r + 2, c + 1) = Dgv.Rows®.Cells©.Value
End If

RE: كود تصدير البيانات من الداتاجريدفيو الى اكسل - سلام و محبه - 08-01-21

ربنا يبارك فيك اشتغل معايا صح