[asemshahen5]

عندما تعود الكهرباء ساعد لك مثال كامل باذن الله .
بالنسبة للحدث الذي تريد استخدامه عند عملية التعديل انصحك بالحدث :
DataGridView1_CellValueChanged

[عمور2016]

الله يبارك فيك...بانتظارك ياغالي

[asemshahen5]

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

[عمور2016]

success

ماشاء الله انت مبدع بارك الله فيك وكتب الله لك في كل حرف الف حسنة .

شـــــــــــــــــــــــــــكرا من القلب تحياتي

[asemshahen5]

الحمد لله و الشكر لله تستطيع تعديل الكود ليحفظ سجلات جديدة اذا اردت بشرط ان يكون عامود الاي دي مفتاح رئيسي و ترقيم تلقائي عدل الكود ليكون كتالي :

PHP كود :

   Private Sub DataGridView1_CellValueChanged(sender As Object, e As DataGridViewCellEventArgs) Handles DataGridView1.CellValueChanged
        ''adapter.UpdateCommand = New SqlCommandBuilder(adapter).GetUpdateCommand()
        ''adapter.Update(dd)
        ''dt1.AcceptChanges()
        i = e.RowIndex
        If DataGridView1.Rows(e.RowIndex).Cells(0).Value.ToString = "" Then
            Dim StrSQL As String = "INSERT INTO EmployeeXT (Name,Telphon ) VALUES ('" &
                DataGridView1.Rows(e.RowIndex).Cells(1).Value.ToString & "','" &
                DataGridView1.Rows(e.RowIndex).Cells(2).Value.ToString & "')"
            ExecuteNonQueryXT(StrSQL)
            DataGridView1.DataSource = FillDgv("select * from EmployeeXT")
            FillDgvComboBox(DataGridView1, "select * from EmployeeCmb", "Name", 1)
            DataGridView1.Columns(0).Visible = False
        Else
            Dim StrSQL As String = "UPDATE EmployeeXT SET Name='" &
                DataGridView1.Rows(e.RowIndex).Cells(1).Value.ToString &
                "', Telphon='" & DataGridView1.Rows(e.RowIndex).Cells(2).Value.ToString &
                "' Where ID='" & DataGridView1.Rows(e.RowIndex).Cells(0).Value.ToString & "'"
            ExecuteNonQueryXT(StrSQL)
            DataGridView1.DataSource = FillDgv("select * from EmployeeXT")
            FillDgvComboBox(DataGridView1, "select * from EmployeeCmb", "Name", 1)
            DataGridView1.Columns(0).Visible = False
        End If
    End Sub 


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

PHP كود :

   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        DataGridView1.DataSource = FillDgv("select * from EmployeeXT")
        FillDgvComboBox(DataGridView1, "select * from EmployeeCmb", "Name", 1)
        DataGridView1.Columns(0).Visible = False
    End Sub 


او :

PHP كود :

   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        DataGridView1.DataSource = FillDgv("select * from EmployeeXT")
        FillDgvComboBox(DataGridView1, "select * from EmployeeCmb", "Name", 1)
        DataGridView1.Columns(0).ReadOnly = True
    End Sub 


[عمور2016]

(16-09-20, 06:43 PM)asemshahen5 كتب : تفضل هذا مثال به ماتريد إنشاء الله .
عدلت طريقة الحفظ لتحفظ سجل سجل افضل من حفظ مجموعة فحظ المجموعة يسبب بطئ في كثرة البيانات .

اخي asemshahen5 بارك الله فيك فضلا ليس امرا

الكود يتكلم عن تعبئة الكومبو من جدول الادخال وقد يكون جدول الادخال فارغ وبالتالي  لن تستطيع اختيار من الكومبو

انا عامل جدول اخر اريد يتم تعبئة الكومبو من جدول اخر


وشكرا لك

[asemshahen5]

اخي العزيز لودققت النظر في حدث اللود :

PHP كود :

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        DataGridView1.DataSource = FillDgv("select * from EmployeeXT")
        FillDgvComboBox(DataGridView1, "select * from EmployeeCmb", "Name", 1)
        DataGridView1.Columns(0).ReadOnly = True
    End Sub 


لوجدت استعلامين من جدولين مختلفين :

1 - استعلام تعبئة الجدول من جدول : EmployeeXT

PHP كود :

DataGridView1.DataSource = FillDgv("select * from EmployeeXT") 


2 - استعلام تعبئة الكومبوبوكس من جدول : EmployeeCmb

PHP كود :

FillDgvComboBox(DataGridView1, "select * from EmployeeCmb", "Name", 1) 


يوجد سكربت لقاعدة البيانات داخل المرفق السابق به كود انشاء قاعدة البيانات و انشاء الجدولين :

EmployeeXT - EmployeeCmb .

[عمور2016]

---

حفظك الله واتعبتك معي 

حاولت وما اريدة انه يتعارض معي تسمية الاعمدة


اريد كود التسمية  للاعمدة 

حيث تم تعديل مسمى الجدولين لكن تظهر رسالة خطا    مثلا  (tabel1)  ,   (tabel2)
وعندما اجعله نفس الجدول لا تظهر رسالة خطا ارجو الافادة   مثلا  (tabel1)  ,   (tabel1)



   
           Me.DataGridView1.Columns(1).HeaderText = "التّرقيم "  '1
           Me.DataGridView1.Columns(2).HeaderText = "رقم العقد "

           Me.DataGridView1.Columns(3).HeaderText = " رقم الهوية-الاقامة"     '3
           Me.DataGridView1.Columns(4).HeaderText = "اسم العميل "
           Me.DataGridView1.Columns(5).HeaderText = "رقم الجوال"        '5
           Me.DataGridView1.Columns(6).HeaderText = "الجوال2"      '6
           Me.DataGridView1.Columns(7).HeaderText = "رقم القسط"       '7
           Me.DataGridView1.Columns(8).HeaderText = "تاريخ القسط"           '8

           Me.DataGridView1.Columns(9).HeaderText = "الاجمالي "
           Me.DataGridView1.Columns(10).HeaderText = "مبلغ القسط"        '10
           Me.DataGridView1.Columns(11).HeaderText = "مبلغ السداد"      '11
           Me.DataGridView1.Columns(12).HeaderText = "الباقي "       '12
           '        Me.DataGridView1.Columns("statez").HeaderText = "حالة القسط"           '13

[asemshahen5]

ضع مثالا مصغرا عما تريد فيه نافذة واحدة و وضع الاكواد التي بها خطا و باذن الله سنصلحه .

[عمور2016]

(15-09-20, 02:19 PM)Anas Mahmoud كتب : الكود يعمل انا جربته ، ارسل مثالك نعدل عليه

---

اضافة كــــــــــــــــود لتسمية الاعمدة
هل لك ان تعدل او تضيف(في المثال) مسمى الاعمدة وتصغر وتكبر الاعمدة للداتاقريد فيو

 فضلا ليس امر