تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[كود] كيف نحافظ على تنسيق التاريخ "dd/MM/yyyy" في DataGridView1 عند التصدير الى اكسل
#1
بسم الله الرحمن الرحيم

كيف نحافظ على تنسيق التاريخ "dd/MM/yyyy" في DataGridView1 عند التصدير الى اكسل
المشكلة عند التصدير اذا كان التاريخ dd اليوم من 1 الى 12 يتم قلبة ووضع الشهر اول يعني يصبح تنسيق التاريخ كالتالي "MM/dd/yyyy" 
مثال
التاريخ في DataGridView1 كالتالي 01/10/2000 وعند التصدير الى الاكسل يصبح 10/01/2000
التاريخ في DataGridView1 كالتالي 02/10/2000 وعند التصدير الى الاكسل يصبح 10/02/2000
التاريخ في DataGridView1 كالتالي 03/10/2000 وعند التصدير الى الاكسل يصبح 10/03/2000
التاريخ في DataGridView1 كالتالي 04/10/2000 وعند التصدير الى الاكسل يصبح 10/04/2000
التاريخ في DataGridView1 كالتالي 05/10/2000 وعند التصدير الى الاكسل يصبح 10/05/2000
الى حد ما يصل اليوم dd الى 12
مع العلم استخدم الكود التالي
كود :
Dim rowsTotal, colsTotal As Short
       Dim I, j, iC As Short
       System.Windows.Forms.Cursor.Current = System.Windows.Forms.Cursors.WaitCursor
       Dim xlApp As New Excel.Application
       Try
           Dim excelBook As Microsoft.Office.Interop.Excel.Workbook = xlApp.Workbooks.Add
           Dim excelWorksheet As Microsoft.Office.Interop.Excel.Worksheet = CType(excelBook.Worksheets(1), Excel.Worksheet)
           xlApp.Visible = True
           rowsTotal = DataGridView1.RowCount - 1
           colsTotal = DataGridView1.Columns.Count - 1
           Dim currCol As Integer = 1
           With excelWorksheet
               .Cells.Select()
               .Cells.Delete()
               For iC = 0 To colsTotal

                   If DataGridView1.Columns(iC).Visible = True Then
                       .Cells(1, currCol).Value = DataGridView1.Columns(iC).HeaderText
                       currCol = currCol + 1
                   End If

               Next


               For I = 0 To rowsTotal
                   currCol = 1
                   For j = 0 To colsTotal
                       If DataGridView1.Columns(j).Visible = True Then
                           .Cells(I + 2, currCol).value = DataGridView1.Rows(I).Cells(j).FormattedValue
                           currCol = currCol + 1
                       End If
                   Next j
               Next I

               .Rows("1:1").Font.FontStyle = "Bold"
               .Rows("1:1").Font.Size = 10
               .Cells.Columns.AutoFit()
               .Cells.Select()
               .Cells.EntireColumn.AutoFit()
               .Cells(1, 1).Select()
           End With
       Catch ex As Exception
           MsgBox("Export Excel Error " & ex.Message)
       Finally
           System.Windows.Forms.Cursor.Current = System.Windows.Forms.Cursors.Default
           xlApp = Nothing
       End Try
الله المستعان
الرد }}}}
تم الشكر بواسطة:
#2
.Cells(I + 2, currCol).value = " " & DataGridView1.Rows(I).Cells(j).FormattedValue
الرد }}}}
تم الشكر بواسطة:
#3
بارك الله فيك اخي sami2015 على المشاركة وحل المشكلة
الله المستعان
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Rainbow [كود] اضافه للمشروع التاريخ الميلادي والهجري محمد مسافر 8 222 منذ 4 ساعة مضت
آخر رد: مساعدة
  [سؤال] حل مشكلة برنامج لتغير التاريخ عبدالرحمن المكاوي 6 145 17-02-17, 11:19 PM
آخر رد: EnormousSoft
  البحث بجزء من التاريخ أسامة السالمي 6 121 16-02-17, 03:19 PM
آخر رد: أسامة السالمي
  [سؤال] هل يوجد طريقة للتنبيه قبل انتهاء التاريخ بيومين Marwan9990 22 723 08-02-17, 02:48 AM
آخر رد: أسامة السالمي
Tongue كيفية تنسيق فورمات التكست بوكس المتألق9 0 35 06-02-17, 05:03 PM
آخر رد: المتألق9
  اريد كود تنسيق التاريخ bidaya 10 283 06-02-17, 03:08 AM
آخر رد: bidaya
Photo [VB.NET] مساعده في تعديل كود التنبيه قبل انتهاء التاريخ بفتره زمنيه.. Marwan9990 11 227 02-02-17, 06:12 PM
آخر رد: Marwan9990
  منع تغير التاريخ و الوقت noway 5 158 25-01-17, 03:00 PM
آخر رد: مساعدة
  حول التصدير إلى أكسل thevirus 3 164 21-01-17, 09:46 AM
آخر رد: thevirus
  ياشباب ارجو المساعده رنامج لا جلب اي قاعده بيانات في الجهاز اكسس او اكسل وعرضها ammaraliali 5 187 15-01-17, 06:11 PM
آخر رد: khodor1985

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


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