تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
مشكلة عند تصدير الداتا قريد إلى الاكسل يظهر الوقت مع التاريخ ؟
#1
السلام عليكم

لدي قاعدة بيانات SQL وتم إدخال التاريخ فيها (بالهجري، وإعدادت التاريخ في النظام بالهجري) عند طريق اداة DateTimePicker وتم ضبط الـ Format على الوضع (Short)

و لكن عند تصديرها للإكسل يظهر الوقت بجانب التاريخ كما هو موضح في المرفقات ويكون التاريخ بالميلادي !!

أتمنى المشاركة ولكم جزيل الشكر

كود :
 Public Sub dgv_ExportDataToExcelFile(ByVal dgv As DataGridView)
       System.Threading.Thread.CurrentThread.CurrentCulture = System.Globalization.CultureInfo.CreateSpecificCulture("ar-SA")
       Dim SFD As New SaveFileDialog
       Dim exlapp As New Application
       Dim exlworkbook As Workbook
       Dim exlworksheet As Worksheet
       Dim misvalue As Object = System.Reflection.Missing.Value

       exlworkbook = exlapp.Workbooks.Add(misvalue)
       exlworksheet = exlworkbook.Sheets(1)
       exlworksheet.DisplayRightToLeft = True
       For colhead As Integer = 0 To dgv.ColumnCount - 1
           exlworksheet.Cells(1, colhead + 1) = dgv.Columns(colhead).HeaderText
       Next
       For i As Integer = 0 To dgv.RowCount - 1
           For j As Integer = 0 To dgv.ColumnCount - 1
               exlworksheet.Cells(i + 2, j + 1) = dgv.Rows(i).Cells(j).Value.ToString
           Next
       Next
       SFD.Filter = "Excel Files|*.xlsx|Excel 2003|*.xls"
       If SFD.ShowDialog = System.Windows.Forms.DialogResult.OK Then
           exlworksheet.SaveAs(SFD.FileName)
       End If
       exlworkbook.Close()
       exlapp.Quit()
       System.Runtime.InteropServices.Marshal.ReleaseComObject(exlapp)
       System.Runtime.InteropServices.Marshal.ReleaseComObject(exlworkbook)
       System.Runtime.InteropServices.Marshal.ReleaseComObject(exlworksheet)
       exlapp = Nothing : exlworkbook = Nothing : exlworksheet = Nothing
       If MessageBox.Show("هل تريد فتح الملف ؟", "فتح ملف الأكسل", MessageBoxButtons.YesNo, MessageBoxIcon.Question, MessageBoxDefaultButton.Button1, MessageBoxOptions.RtlReading) = MsgBoxResult.Yes Then
           Process.Start(SFD.FileName)
       End If


الملفات المرفقة صورة/صور
   
اللهم ارحم من أسس هذا المنتدى (اباليث) و أجعل كل علم نافع تعلمناه في هذا المنتدى أجر له و صدقة تنفعه في قبره
الرد
تم الشكر بواسطة:
#2
وعليكم السلام...
أعتقد أخي أن المشكلة في كلمة ToStringالمذكورة في ذلك السطر فقم بإزالة ToString:
dgv.Rows(i).Cells(j).Value.ToString
المبرمج لا يفكر في المشكلة بل في الحل!!
الرد
تم الشكر بواسطة:
#3
اشكرك اخي اسامه على ردك

و لكن للأسف نفس المشكلة
اللهم ارحم من أسس هذا المنتدى (اباليث) و أجعل كل علم نافع تعلمناه في هذا المنتدى أجر له و صدقة تنفعه في قبره
الرد
تم الشكر بواسطة:
#4
للرفع رفع الله قدركم.
اللهم ارحم من أسس هذا المنتدى (اباليث) و أجعل كل علم نافع تعلمناه في هذا المنتدى أجر له و صدقة تنفعه في قبره
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] مشكلة في سحب s_token من الكوكيز trakktour 1 856 23-02-21, 05:50 AM
آخر رد: عادل526
  [سؤال] مشكلة netsh advfirewall Vimtos 1 98 20-02-21, 10:56 PM
آخر رد: Vimtos
  حساب الفرق بين وقتين من خلال الداتا قريد aftfm 6 251 20-02-21, 04:50 PM
آخر رد: أبو عبدالله الحلواني
  جمع الوقت من خلال داتا قريد مستمدة من جدول في أكسس saud4001 0 62 19-02-21, 09:19 AM
آخر رد: saud4001
  [سؤال] مساعدة في انشاء combobox في الداتا جريد fawazm15019797 1 314 18-02-21, 10:37 PM
آخر رد: سعيد كنيمو
  مطلوب تحديد صف معين داخل الداتا جريد فيو نور الهدى الهدى 1 181 11-02-21, 11:01 PM
آخر رد: سعود
  عدم ظهور الفورم او الداتا سيت في الانشاء عمور2016 3 242 09-02-21, 01:27 AM
آخر رد: عمور2016
  كيف يمكننى رفع الداتا بيز على استضافة mostafa nada 2 196 08-02-21, 12:20 PM
آخر رد: nabil.1710
Heart [Acces2007] مشكلة في قاعدة البيانات ali bajmmal 3 281 02-02-21, 01:14 PM
آخر رد: ali bajmmal
  [سؤال] ممكن حل مشكلة فى كود الحفظ عاصم النجار 2 243 01-02-21, 07:07 AM
آخر رد: عاصم النجار

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


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