[فراس الغزي]

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

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

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

[عبدالله الدوسري]

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

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

[فراس الغزي]

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

  اخي عبد  الله  هبل  ان اضع  مشروعي  هل  لــ  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 ما لها علاقة بالتاريخ لا من قريب ولا من بعيد
هي تعرض البيانات فقط لا غير , زي ما تيجي زي ما تظهر ,
مستحيل يكون مخزن بالقاعدة ميلادي وإعدادات الجهاز ميلادي , وبدون ما تغيير الإعدادات الإقليمية للمشروع , وتظهر بالهجري.

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

[فراس الغزي]

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

[عبدالله الدوسري]

الحمد لله 

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

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