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

السلام عليكم ورحمة الله وبركاته

الاخوة الاعزاء

لدي مشكلة بسيطة ان شاء الله
وهي ان انا عندي جدول وفيه حقلين للتاريخ عند الاضافة والتعديل بيطلع التاريخ ميلادي ولكن في شاشة العرض الداتاجريد فيو بيظهر التاريخ هجري ولا اعرف السبب علما انا اكتب الكود في بقية الصفحات للبرنامج بيطلع التاريخ طبيعي ولا توجد مشكلة ارجو منكم الي عندة حل لهذه المشكلة ان يرفدنا فيها انا اريد التاريخ ميلادي وليس هجري

ضع مشروعك هنا لنلقي نظرة علية ,

لا يمكن معرفت السبب بدون أن نرى ما الذي يحدث داخل مشروعك

اشكرك اخي العزيز

اخي عبد الله هبل ان اضع مشروعي هل لــ  Dim skn As New Sunisoft.IrisSkin.SkinEngine علاقة بالتاريخ الهجري والميلادي علما انا استعمل
Dim ci As New System.Globalization.CultureInfo("ar-EG")

والكود الخاص بالتاريخ بالداتا جريد هو كالاتي
طبا هذا كود الصفحة بالكامل
اخي الغالي

كود :

Imports MySql.Data.MySqlClient

Public Class all_com

    Dim Dtdoctor As New DataTable

    Dim Dt As New DataTable, dal As New dataaccess

    Sub fillnamedoctor()

        adapter = New MySqlDataAdapter("SELECT * FROM company", con)

        adapter.Fill(Dtdoctor)

        Comgru.DataSource = Dtdoctor

        Comgru.DisplayMember = "com_name"

        Comgru.ValueMember = "id"

    End Sub

    Sub fillpro()

        Dt.Rows.Clear()

        adapter = New MySqlDataAdapter("select * from company", con)

        adapter.Fill(Dt)

        Me.DataGrid.DataSource = Dt

        DataGrid.Columns(0).HeaderText = "التسسلسل"

        DataGrid.Columns(1).HeaderText = "أسم الشركة"

        DataGrid.Columns(2).HeaderText = "رقم الفاتورة"

        DataGrid.Columns(3).HeaderText = "مبلغ الفاتورة"

        DataGrid.Columns(4).HeaderText = "المبلغ المدفوع"

        DataGrid.Columns(5).HeaderText = "رقم الحوالة"

        DataGrid.Columns(6).HeaderText = "تاريخ التحويل"

        DataGrid.Columns(7).HeaderText = "المبلغ المتبقي"

        DataGrid.Columns(8).HeaderText = "تاريخ الشراء"

        DataGrid.Columns(9).HeaderText = "رقم الهاتف"

        DataGrid.Columns(10).HeaderText = "عنوان الشركة"

        DataGrid.Columns(11).HeaderText = "الملاحظات "

    End Sub

    Private Sub Butclose_Click(sender As Object, e As EventArgs) Handles Butclose.Click

        Close()

    End Sub

    Private Sub all_com_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        fillpro()

        fillnamedoctor()

        Timer1.Start()

    End Sub

    Private Sub Butnew_Click(sender As Object, e As EventArgs) Handles Butnew.Click

        Dim frm As New add_com

        frm.ToDo = "add"

        frm.Text = "اضافة   شركة جديدة"

        frm.Butsave.Text = "اضافة"

        frm.ShowDialog()

    End Sub

    Private Sub Butedite_Click(sender As Object, e As EventArgs) Handles Butedite.Click

        Try

            Dim frm As New add_com

            frm.ToDo = "edite"

            frm.Text = "تعديل الشركة :" & DataGrid.CurrentRow.Cells(1).Value

            frm.Butsave.Text = "تعديل"

            frm.id = DataGrid.CurrentRow.Cells(0).Value

            frm.Textname.Text = DataGrid.CurrentRow.Cells(1).Value

            frm.Textnum.Text = DataGrid.CurrentRow.Cells(2).Value

            frm.Textmony.Text = DataGrid.CurrentRow.Cells(3).Value

            frm.Textmo_tak.Text = DataGrid.CurrentRow.Cells(4).Value

            frm.TextBsend.Text = DataGrid.CurrentRow.Cells(5).Value

            frm.DateTsend.Text = DataGrid.CurrentRow.Cells(6).Value

            frm.Texttotle.Text = DataGrid.CurrentRow.Cells(7).Value

            frm.DateT.Text = DataGrid.CurrentRow.Cells(8).Value

            frm.Textphone.Text = DataGrid.CurrentRow.Cells(9).Value

            frm.TexTloc.Text = DataGrid.CurrentRow.Cells(10).Value

            frm.Textnote.Text = DataGrid.CurrentRow.Cells(11).Value

            frm.ShowDialog()

            fillpro()

        Catch ex As Exception

            Exit Sub

        End Try

    End Sub

    Private Sub Butdelete_Click(sender As Object, e As EventArgs) Handles Butdelete.Click

        Try

            If con.State = ConnectionState.Open Then

                con.Close()

            Else

                con.Open()

            End If

            cmd = New MySqlCommand("Delete from company where id=" & DataGrid.CurrentRow.Cells(0).Value, con)

            cmd.ExecuteNonQuery()

            fillpro()

            MsgBox("تمت عملية الحذف بنجاح")

        Catch ex As Exception

        Finally

            con.Close()

        End Try

    End Sub

    Private Sub Textscrch_TextChanged(sender As Object, e As EventArgs) Handles Textscrch.TextChanged

        Try

            Dim DtCopy As DataTable = Dt.Copy

            Dim dv As DataView = DtCopy.DefaultView

            dv.RowFilter = "id+com_name+com_num_order+com_phon like '%" & Textscrch.Text & "%'"

            DataGrid.DataSource = dv

        Catch ex As Exception

        End Try

    End Sub

    Private Sub Butprint_Click(sender As Object, e As EventArgs) Handles Butprint.Click

    End Sub

    Private Sub LblSum_Click(sender As Object, e As EventArgs) Handles LblSum.Click

    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        Dim temp As String

        temp = "To Purchase"

        Try

            LblSum.Text = CDbl(dal.getdata("SELECT SUM(total) FROM  company WHERE com_name='" & Comgru.Text & "'").Rows(0)(0)).ToString("n2")

        Catch ex As Exception

            MsgBox("لا يوجد اي  اموال للشركة بهذا اليوم بهذا اليوم", MsgBoxStyle.Information, "لا يوجد اموال")

        End Try

        con.Close()

    End Sub

    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick

        Dim tot As Integer

        For s As Decimal = 0 To Dt.Rows.Count - 1

            tot = Dt.Rows(s).Item("com_mony") + tot

        Next

        Label7.Text = tot

        Dim tot2 As Integer

        For r As Decimal = 0 To Dt.Rows.Count - 1

            tot2 = Dt.Rows(r).Item("com_mony_tak") + tot2

        Next

        Label8.Text = tot2

        Dim tot3 As Integer

        For t As Decimal = 0 To Dt.Rows.Count - 1

            tot3 = Dt.Rows(t).Item("total") + tot3

        Next

        Label9.Text = tot3

    End Sub

End Class

ما هي إعدادات تاريخ الجهاز لديك , ميلادي أم هجري؟

وعندما تفتح قاعدة البيانات هل تظهر كميلادي أم هجري

جرب أن تجلب البيانات بدون إستخدام الـ Sunisoft.IrisSkin.SkinEngine في مشروع جديد

اخي اعدادات الجهاز ميلادي وبداخل قاعدة البيانات ميلادي ولما اعمل تعديل للشركة بيطلع ميلادي لكنه فقط في الداتاجريد فيو بيطلع هجري

(01-05-18, 04:46 PM)عبدالله الدوسري كتب : [ -> ]ما هي إعدادات تاريخ الجهاز لديك , ميلادي أم هجري؟

وعندما تفتح قاعدة البيانات هل تظهر كميلادي أم هجري

جرب أن تجلب البيانات بدون إستخدام الـ Sunisoft.IrisSkin.SkinEngine في مشروع جديد

اخي العزيز جربت الدخول بدون ملف الثيمات لكن نفس المشكلة طلعت عندي ومش عارف السبب

حاول تضع الكود كامل هنا ... الكود الذي وضعتة ناقص .. لا توجد الأجزاء الخاصة بالداتا قريد فيو

(01-05-18, 08:07 PM)عبدالله الدوسري كتب : [ -> ]حاول تضع الكود كامل هنا ... الكود الذي وضعتة ناقص .. لا توجد الأجزاء الخاصة بالداتا قريد فيو

السلام عليكم

اخي العزيز
هالكود موجود فيه كود الدتا جريد واليك الكود الخاص بالدتاجريد فيو تحياتي اليك

كود :

[color=#c7254e][size=small][font=Monaco, Consolas, Courier, monospace]Sub fillpro()[/font][/size][/color]

[color=#c7254e][size=small][font=Monaco, Consolas, Courier, monospace]        Dt.Rows.Clear()[/font][/size][/color]

[color=#c7254e][size=small][font=Monaco, Consolas, Courier, monospace]        adapter = New MySqlDataAdapter("select * from company", con)[/font][/size][/color]

[color=#c7254e][size=small][font=Monaco, Consolas, Courier, monospace]        adapter.Fill(Dt)[/font][/size][/color]

[color=#c7254e][size=small][font=Monaco, Consolas, Courier, monospace]        Me.DataGrid.DataSource = Dt[/font][/size][/color]

[color=#c7254e][size=small][font=Monaco, Consolas, Courier, monospace]        DataGrid.Columns(0).HeaderText = "التسسلسل"[/font][/size][/color]

[color=#c7254e][size=small][font=Monaco, Consolas, Courier, monospace]        DataGrid.Columns(1).HeaderText = "أسم الشركة"[/font][/size][/color]

[color=#c7254e][size=small][font=Monaco, Consolas, Courier, monospace]        DataGrid.Columns(2).HeaderText = "رقم الفاتورة"[/font][/size][/color]

[color=#c7254e][size=small][font=Monaco, Consolas, Courier, monospace]        DataGrid.Columns(3).HeaderText = "مبلغ الفاتورة"[/font][/size][/color]

[color=#c7254e][size=small][font=Monaco, Consolas, Courier, monospace]        DataGrid.Columns(4).HeaderText = "المبلغ المدفوع"[/font][/size][/color]

[color=#c7254e][size=small][font=Monaco, Consolas, Courier, monospace]        DataGrid.Columns(5).HeaderText = "رقم الحوالة"[/font][/size][/color]

[color=#c7254e][size=small][font=Monaco, Consolas, Courier, monospace]        DataGrid.Columns(6).HeaderText = "تاريخ التحويل"[/font][/size][/color]

[color=#c7254e][size=small][font=Monaco, Consolas, Courier, monospace]        DataGrid.Columns(7).HeaderText = "المبلغ المتبقي"[/font][/size][/color]

[color=#c7254e][size=small][font=Monaco, Consolas, Courier, monospace]        DataGrid.Columns(8).HeaderText = "تاريخ الشراء"[/font][/size][/color]

[color=#c7254e][size=small][font=Monaco, Consolas, Courier, monospace]        DataGrid.Columns(9).HeaderText = "رقم الهاتف"[/font][/size][/color]

[color=#c7254e][size=small][font=Monaco, Consolas, Courier, monospace]        DataGrid.Columns(10).HeaderText = "عنوان الشركة"[/font][/size][/color]

[color=#c7254e][size=small][font=Monaco, Consolas, Courier, monospace]        DataGrid.Columns(11).HeaderText = "الملاحظات "[/font][/size][/color]

[color=#c7254e][size=small][font=Monaco, Consolas, Courier, monospace]    End Sub[/font][/size][/color]

Sub fillpro()

Dt.Rows.Clear()
adapter = New MySqlDataAdapter("select * from company", con)

adapter.Fill(Dt)
Me.DataGrid.DataSource = Dt
DataGrid.Columns(0).HeaderText = "التسسلسل"
DataGrid.Columns(1).HeaderText = "أسم الشركة"
DataGrid.Columns(2).HeaderText = "رقم الفاتورة"
DataGrid.Columns(3).HeaderText = "مبلغ الفاتورة"
DataGrid.Columns(4).HeaderText = "المبلغ المدفوع"
DataGrid.Columns(5).HeaderText = "رقم الحوالة"
DataGrid.Columns(6).HeaderText = "تاريخ التحويل"
DataGrid.Columns(7).HeaderText = "المبلغ المتبقي"
DataGrid.Columns(8).HeaderText = "تاريخ الشراء"
DataGrid.Columns(9).HeaderText = "رقم الهاتف"
DataGrid.Columns(10).HeaderText = "عنوان الشركة"
DataGrid.Columns(11).HeaderText = "الملاحظات "
End Sub

والله يا أخ فراس الغزي

بدون ما نشوف المشروع صعبة اقول لك شيء

الـ DataGridView ما لها علاقة بالتاريخ لا من قريب ولا من بعيد
هي تعرض البيانات فقط لا غير , زي ما تيجي زي ما تظهر ,
مستحيل يكون مخزن بالقاعدة ميلادي وإعدادات الجهاز ميلادي , وبدون ما تغيير الإعدادات الإقليمية للمشروع , وتظهر بالهجري.

أكيد فيه شئ بالمشروع ولازم نشوف المشروع .

شكرا اخي ليك تم حل الموضوع والحمد لله وجدت المشكلة في استدعاء التقويم الهجري تقويم مكتبة تقويم مكة المكرمة لذلك بيطلع قمت بايقاف المكتبة اشتغل بالميلادي صحيح
شكرا ليك اخي الغالي

الحمد لله

يا ليت اخي الكريم تظع لنا الكود الذي وجدت فيه الخطاء.

وما هو التعديل ليستفيد الجميع بارك الله فيك.