تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[ تمّ الحل ] : تصدير بيانات الجريد كنترول إلى الإكسل
#1
السّلام عليكم و رحمة الله و بركاته
إخواني الأفاضل ..
جمعة طيّبة و مباركة للجميع إن شاء الله
كيف يمكن تصدير بيانات الجريد كنترول إلى الإكسل
بصراحة بحثت كثيرَا لكنّي لم أجد ضالتي
لديّ هذا الكود و الذي أستعمله عادةً في تصدير بيانات الداتا جريد فيو العاديّة و يشتغل بامتياز
حاولت التغيير فيه قليلاً ليتماشى مع الجريد كنترول الخاص بالديف إكسبرس
لكن للأسف كل محاولاتي باءت بالفشل
و الإشكالية بهذا السّطر من الكود ..
كود :
  .Cells(I + 2, j + 1).value = st.Rows(I).Cells(j).Value

كحل تحايلي مبدئي موقّت ..
قمت بإضافة داتاجريد عادية مخفيّة
و يتم التّصدير إلى الإكسل من خلالها
فالرّجاء ممّن لديهم فكرة .. المساعدة لوجه الله
أو حتّى طريقة أخرى للتّصدير
الكود المستعمل :
كود :
   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       Export_GridView_Express_Excel(GridView1)
   End Sub
 

              
          Catch ex As Exception
               MessageBox.Show(ex.Message, "خطأ غير متوقّع", MessageBoxButtons.OK, MessageBoxIcon.Error)
           Finally
               System.Windows.Forms.Cursor.Current = System.Windows.Forms.Cursors.Default
               xlApp = Nothing
           End Try
       End If
   End Sub

و بارك الله في الجميع
تحياتي
قناتنا على اليوتوب
الرد }}}
تم الشكر بواسطة:
#2
أسلوب أداة DevExpress يختلف عن أسلوب أداة ميكروسوفت
PHP كود :
.Cells(21).value st.GetDataRow(I).Item(j

الأفضل أن يكون تعرف st في الروتين هو GridView وليس Object
وذلك من أجل أن تظهر لك الخصائص والتعريفات أثناء كتابة الكود لst
PHP كود :
Private Sub Export_GridView_Express_Excel(ByVal st As GridView

وبما أن الإجراء عام لا يرتبط بGridView محدد وإنما يرسل له مرجعها
قم بتغيير كلمات GridView1 الموجودة داخل الإجراء إلى st
مثل
PHP كود :
If GridView1.RowCount Nothing Then 
ليصبح هكذا
PHP كود :
If st.RowCount Nothing Then 
وهكذا

ويستحسن أن تضيف متغير اسم الملف مثل
PHP كود :
Private Sub Export_GridView_Express_Excel(ByVal st As GridViewexcelfilename As String
فيصبح مناداة الإجراء كالتالي
PHP كود :
Export_GridView_Express_Excel(GridView1"C:\وثيقة الإكسل لموكّلي و موكّلات مكتب المحاماة"
ولا تنسى أن تحذف اسم الملف داخل الإجراء وتكتب بدلا منه excelfilename مثل
PHP كود :
ElseIf Not Directory.Exists(excelfilenameThen
    Directory
.CreateDirectory(excelfilename

بالنسبة لأسماء رؤوس الأعمده
PHP كود :
.Cells(1iC 1).Value st.Columns.Item(iC).GetTextCaption 
الرد }}}
تم الشكر بواسطة: عبد العزيز البسكري
#3
السّلام عليكم و رحمة الله و بركاته
تسلم أخي الكريم الغاالي " جميل " و سلم يمينك و دينك إن شاء الله
و الله أخي الحبيب ..حاولت تطبيق كل ما ذكرته حسب معرفتي المتواضعة
الآن .. أصبحت رسالة الخطأ هذه التي تظهر .. يتم خلق المجلد لكن بدون ملف الإكسل
الرجاء  .. بعد إذنك أخي الغالي إلقاء نظرة على كامل الكود المستعمل
كود :
   Private Sub SimpleButton1_Click(sender As Object, e As EventArgs) Handles SimpleButton1.Click
       Export_GridView_Express_Excel(GridView1, "C:\وثيقة الإكسل لموكّلي و موكّلات مكتب المحاماة")
   End Sub
   
           Catch ex As Exception
               MessageBox.Show(ex.Message, "خطأ غير متوقّع", MessageBoxButtons.OK, MessageBoxIcon.Error)
           Finally
               System.Windows.Forms.Cursor.Current = System.Windows.Forms.Cursors.Default
               xlApp = Nothing
           End Try
       End If

تحياتي
قناتنا على اليوتوب
الرد }}}
تم الشكر بواسطة: جميل3 , جميل3
#4
تم تعديل الكود،
PHP كود :
.Cells(21).value st.GetDataRow(I).Item(j

أعتقد الخطأ السابق بسبب أن GridView1 مرتبط بالبيانات.

بالنسبة لأسماء رؤوس الأعمده
PHP كود :
.Cells(1iC 1).Value st.Columns.Item(iC).GetTextCaption 

لا تستخدم Try إلا بعد نجاح تجربة الكود بدون أخطاء
الرد }}}
#5
السّلام عليكم و رحمة الله و بركاته
و الله أخي الكريم " جميل " لا أعرف كيف أشكرك و كيف أرد جميلك و جميل أعمالك
لأنّ هذا المشكل سبّب لي صداعا منقطع النظير
و جاء الخلاص من عند شخصك الكريم
إلهي ينعم عليك بطيّبات الدنيا و الآخرة
و يحسن إليك مثلما أحسنت إليّ بهذا الدعم و الحل أكثر من الرائع
كلّه تمام مئة بالمئة .. زادك الله من فضله و علمه و نفع بك المتعلّمين أمثالي و زادها بموازين حسناتك إن شاء الله
تحياتي و تقييماتي
قناتنا على اليوتوب
الرد }}}
تم الشكر بواسطة: جميل3 , ابراهيم ايبو
#6
بتمنى الإطلاع على هذا الفيديو، كتبتوا أكواد كتير الله يعطيكم العافية، بس الموضوع بالـ Devexpress لايحتاج هذا الكم من الجهد.


واعبد ربك حتى يأتيك اليقين
الرد }}}
تم الشكر بواسطة: عبد العزيز البسكري


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Video [درس فيديو] الدرس 49 (كيفة جعل الجريد Read Only لمنع التعديل في البيانات) Atef Bidier 1 1,924 20-02-24, 01:20 AM
آخر رد: loay775
Star [سؤال] إظهار بيانات النص الكامل داخل الخلية في (gridControl) DevExpress mazentq 1 1,123 18-09-22, 01:13 PM
آخر رد: khodor1985
  [سؤال] كيفيه اضافه صف جديد الي الجريد كنترول منه 5 2,551 25-04-22, 07:04 AM
آخر رد: asemshahen5
  [سؤال] كيفية نسخ بيانات من ملف اكسيل الي ديف اكسبريس داتا كونترول AymanRamadanSaad 1 2,224 03-07-21, 04:00 PM
آخر رد: AymanRamadanSaad
  قريد كنترول محمد بن عطية 3 1,711 13-01-21, 08:26 PM
آخر رد: عبد العزيز البسكري
  تحويل كود من جريد فيو الى جريد كنترول العيدروس 2 1,581 15-12-20, 11:13 PM
آخر رد: العيدروس
  [ تمّ الحل ] : حفظ الألوان المستعملة بعد إغلاق المشروع عبد العزيز البسكري 3 1,697 01-10-20, 02:40 PM
آخر رد: عبد العزيز البسكري
  [سؤال] كود اضافة صف في القريد كنترول m4n2net2000 2 5,683 26-08-20, 02:41 PM
آخر رد: m4n2net2000
  تفعيل الخاصّية : Scroll بالجريد كنترول عبد العزيز البسكري 5 2,528 23-07-20, 11:05 PM
آخر رد: عبد العزيز البسكري
  [ تمّ الحل ] : تعريب صفحة تقرير الطباعة عبد العزيز البسكري 1 2,218 09-05-20, 05:59 AM
آخر رد: عبد العزيز البسكري

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم