منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - مشكلة عند تصدير الداتا قريد إلى الاكسل يظهر الوقت مع التاريخ ؟

السلام عليكم

لدي قاعدة بيانات 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

وعليكم السلام...
أعتقد أخي أن المشكلة في كلمة ToStringالمذكورة في ذلك السطر فقم بإزالة ToString:
dgv.Rows(i).Cells(j).Value.ToString

اشكرك اخي اسامه على ردك

و لكن للأسف نفس المشكلة

للرفع رفع الله قدركم.

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

أبووسم

اسامه الهرماوي

أبووسم

أبووسم