+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] إضافة وحذف عنصر من DataGridView (/showthread.php?tid=40222)
إضافة وحذف عنصر من DataGridView - أبو خالد الشكري - 10-12-21
السلام عليكم شباب ، وجمعة مباركة عليكم جميعا .
سؤال بخصوص DataGridView
بس بغيت لو تكرمتم كود يمكنه حذف أي عنصر أحدده من القائمة التي اسمها (Letters)
على سبيل المثال أريد أحذف حرف B
ثانيا : أريد أضيف عناصر جديدة في نفس القائمة .
على سبيل المثال : أريد إضافة حرف F
ولقد أرفقت لكم مشروع بسيط كمثال للتوضيح .
ولكم مني خالص الشكر والتقدير .
RE: إضافة وحذف عنصر من DataGridView - اسامه الهرماوي - 10-12-21
وعليكم السلام...
أسلم حل هو التعامل مع قاعدة بيانات لضمان وجود البيانات لفترة أطول + التسهيل في العمل.
RE: إضافة وحذف عنصر من DataGridView - سعود - 10-12-21
[مشروع] [*معدل*]باستخدام الداتاجريدفيو (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
RE: إضافة وحذف عنصر من DataGridView - سعود - 10-12-21
تعديل كود الحذف [خطأ فادح بالكود الاول]
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
RE: إضافة وحذف عنصر من DataGridView - أبو خالد الشكري - 11-12-21
مرحبا بك أستاذ سعود
أشكرك من كل قلبي على تفضلك بالكود البرمجي
ولكن للأسف أستاذي الكود يعمل فقط إذا كان صف واحد فقط
بمعنى آخر : عند تعدد الصفوف فإنه لا يعمل بالشكل المطلوب
فلا يقوم بإزالة حرف B من كل الصفوف !
أي أن حلقة Loop لا تعمل كما يجب !
وهذا الكلام ينطبق على الحذف والإضافة .
RE: إضافة وحذف عنصر من DataGridView - سعود - 11-12-21
(11-12-21, 01:24 AM)أبو خالد الشكري كتب : مرحبا بك أستاذ سعود
أشكرك من كل قلبي على تفضلك بالكود البرمجي
ولكن للأسف أستاذي الكود يعمل فقط إذا كان صف واحد فقط
بمعنى آخر : عند تعدد الصفوف فإنه لا يعمل بالشكل المطلوب
فلا يقوم بإزالة حرف B من كل الصفوف !
أي أن حلقة Loop لا تعمل كما يجب !
وهذا الكلام ينطبق على الحذف والإضافة .
العفو اخي الكريم
الكود الاخير ظننت انه هو المطلوب لانه محدد بالصف اللذي تم اختياره اما الكود الاول فنعم يقوم بما افهمه الان من مشاركتك هذه اللتي اقتبستها بردي هذا.
RE: إضافة وحذف عنصر من DataGridView - أبو خالد الشكري - 11-12-21
شكرا جزيلا لك أستاذي
أنا جربت الكود الأول ، والنتيجة فتاكة
اشتغل 100% مثل ما هو مطلوب بالضبط !
لك ألف شكر أستاذ سعود ، ما قصرت .
RE: إضافة وحذف عنصر من DataGridView - سعود - 11-12-21
(11-12-21, 03:37 AM)أبو خالد الشكري كتب : شكرا جزيلا لك أستاذي
أنا جربت الكود الأول ، والنتيجة فتاكة
اشتغل 100% مثل ما هو مطلوب بالضبط !
لك ألف شكر أستاذ سعود ، ما قصرت .
العفو اخي الكريم
و الحمدلله على ذلك و اكثر.