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

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

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

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

ظهر هكذا

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

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

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

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

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

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

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

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

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

---

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

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