06-01-21, 09:34 PM
السلام عليكم و رحمة الله و بركاته
عند نقر زر تصدير يظهر error
عند نقر زر تصدير يظهر error
تقييم الموضوع :
|
كود تصدير البيانات من الداتاجريدفيو الى اكسل
|
06-01-21, 10:41 PM
ExlWorkSheet = ExlWorkBook.Sheets.Add
ExlWorkSheet.Name = "sheet1" تم الشكر بواسطة: سلام و محبه , اسامه الهرماوي , ابراهيم ايبو
07-01-21, 01:00 AM
ExlWorkSheet.Cells(r + 2, c + 1 ) = Dgv.Rows( r ).Cells( c ).Value.ToString
تم الشكر بواسطة: اسامه الهرماوي , ابراهيم ايبو , سلام و محبه
08-01-21, 04:36 PM
(آخر تعديل لهذه المشاركة : 08-01-21, 05:53 PM {2} بواسطة سلام و محبه.)
شكرا لك يا اخ ggggggggg
مرفق المشروع الذى حيرنى فى التصدير الى اكسل ارجو ان تجربه و تعدله الداتابيس اسمها الحقيقى db_account لكن المرفقه اسمها s من نوع sqlserver 2008 
smart accounting.rar (الحجم : 4.11 م ب / التحميلات : 48)
ارجو ان تجربه و تعدله
08-01-21, 09:05 PM
وعليكم السلام
يوجد Null في بيانات الجدول وهو الذي يتسبب في الخطا لابد من التحقق من القيمه وبما ان الكود يقرا من الداتاجريد فيكون التحقق ب IsNot Nothing لكن بدون ToString مثل If Dgv.Rows®.Cells©.Value IsNot Nothing Then تم الشكر بواسطة: سلام و محبه
08-01-21, 10:45 PM
(آخر تعديل لهذه المشاركة : 08-01-21, 10:52 PM {2} بواسطة سلام و محبه.)
شكرا اخ اشرف
هل تقصد ب null السطر الاخير فى الجدول الموضح بالصوره  كيف اعدل الكود؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟ لو سمحت ساعدنى كيف اكتبه
اقصد ال NULL في اول سطرين ع اليمين خالص واضحه في الصوره
 الكود If Dgv.Rows®.Cells©.Value IsNot Nothing Then ExlWorkSheet.Cells(r + 2, c + 1) = Dgv.Rows®.Cells©.Value End If تم الشكر بواسطة: سلام و محبه
|
|
|
يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم