[أبو خالد الشكري]

السلام عليكم شباب ، وجمعة مباركة عليكم جميعا .

سؤال بخصوص DataGridView

بس بغيت لو تكرمتم كود يمكنه حذف أي عنصر أحدده من القائمة التي اسمها (Letters)
على سبيل المثال أريد أحذف حرف B

ثانيا : أريد أضيف عناصر جديدة في نفس القائمة .
على سبيل المثال : أريد إضافة حرف F


ولقد أرفقت لكم مشروع بسيط كمثال للتوضيح .

ولكم مني خالص الشكر والتقدير .

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

وعليكم السلام...
أسلم حل هو التعامل مع قاعدة بيانات لضمان وجود البيانات لفترة أطول + التسهيل في العمل.

[سعود]

[مشروع] [*معدل*]باستخدام الداتاجريدفيو (Countries And Cities)

---

PHP كود :

Private Sub btnAdd_Click(sender As Object, e As EventArgs) Handles btnAdd.Click
        If Not IsNothing(Me.DataGridView1.CurrentRow) Then
            Dim col2 As DataGridViewComboBoxColumn = CType(Me.DataGridView1.Columns(0), DataGridViewComboBoxColumn)
            col2.Items.Add("F")
        End If
    End Sub
    Private Sub btnDelete_Click(sender As Object, e As EventArgs) Handles btnDelete.Click
        If Not IsNothing(Me.DataGridView1.CurrentRow) Then
            Dim col2 As DataGridViewComboBoxColumn = CType(Me.DataGridView1.Columns(0), DataGridViewComboBoxColumn)
            For i As Integer = 0 To col2.Items.Count - 1
                Dim cv As String = col2.Items(i).ToString
                If cv = "B" Then
                    col2.Items.Remove(cv)
                    Exit For
                End If
            Next

        Else
            MsgBox("Nothing")
        End If
    End Sub 


[سعود]

تعديل كود الحذف [خطأ فادح بالكود الاول]

PHP كود :

If Not IsNothing(DataGridView1.CurrentRow) Then
            Dim rowindex As Integer = DataGridView1.CurrentRow.Index
            Dim col3 As DataGridViewComboBoxCell = DirectCast(DataGridView1.Rows(rowindex).Cells(0), DataGridViewComboBoxCell)
            For i As Integer = 0 To col3.Items.Count - 1
                Dim cv As String = col3.Items(i).ToString
                If cv = "B" Then
                    col3.Items.Remove(cv)
                    Exit Sub
                End If
            Next
        Else
            MsgBox("Nothing")
        End If 


---

و كذلك كود الاضافة:

PHP كود :

If Not IsNothing(Me.DataGridView1.CurrentRow) Then
            Dim rowindex As Integer = DataGridView1.CurrentRow.Index
            Dim col3 As DataGridViewComboBoxCell = DirectCast(DataGridView1.Rows(rowindex).Cells(0), DataGridViewComboBoxCell)
            col3.Items.Add("F")
        End If 


[أبو خالد الشكري]

مرحبا بك أستاذ سعود



أشكرك من كل قلبي على تفضلك بالكود البرمجي

ولكن للأسف أستاذي الكود يعمل فقط إذا كان صف واحد فقط



بمعنى آخر : عند تعدد الصفوف فإنه لا يعمل بالشكل المطلوب

فلا يقوم بإزالة حرف B من كل الصفوف !



أي أن حلقة Loop لا تعمل كما يجب !



وهذا الكلام ينطبق على الحذف والإضافة .

[سعود]

(11-12-21, 01:24 AM)أبو خالد الشكري كتب : مرحبا بك أستاذ سعود



أشكرك من كل قلبي على تفضلك بالكود البرمجي

ولكن للأسف أستاذي الكود يعمل فقط إذا كان صف واحد فقط



بمعنى آخر : عند تعدد الصفوف فإنه لا يعمل بالشكل المطلوب

فلا يقوم بإزالة حرف B من كل الصفوف !



أي أن حلقة Loop لا تعمل كما يجب !



وهذا الكلام ينطبق على الحذف والإضافة .

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

[أبو خالد الشكري]

شكرا جزيلا لك أستاذي
أنا جربت الكود الأول ، والنتيجة فتاكة
اشتغل 100% مثل ما هو مطلوب بالضبط !
لك ألف شكر أستاذ سعود ، ما قصرت .

[سعود]

(11-12-21, 03:37 AM)أبو خالد الشكري كتب : شكرا جزيلا لك أستاذي
أنا جربت الكود الأول ، والنتيجة فتاكة
اشتغل 100% مثل ما هو مطلوب بالضبط !
لك ألف شكر أستاذ سعود ، ما قصرت .

العفو  اخي الكريم
و الحمدلله على ذلك و اكثر.