[سعود]

تفضل الدالة والاجراء(الزر)

PHP كود :

Private Function gitemcount(ByVal citm As String) As Integer
        Dim i As Integer = 0
        For a = 0 To d1.Rows.Count - 1
            Dim itm As String = d1.Rows(a).Cells(0).Value.ToString
            If itm = citm Then
                i += 1
            End If
        Next
        Return i
    End Function
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        l1.Items.Clear()
        For a = 0 To d1.Rows.Count - 1
            Dim itm As String = d1.Rows(a).Cells(0).Value.ToString
            If gitemcount(itm) > 3 Then
                If l1.Items.Contains(itm) = False Then
                    l1.Items.Add(itm)
                End If
            End If
        Next
    End Sub 


---

ملاحظة!
صفوف شبيكة البيانات عددها يختلف من حال تمكين اضافة صف عنها في حال عدم تمكين الاضافة .. فلو مكنا الاضافة نحتاج حذف هذا الصف -2 اما لو عطلنا تمكين الاضافة فيكون -1
هذا بخصوص الجزئية
For a = 0 To d1.Rows.Count - 1
لاني عطلت الاضافة من خصائص الـ Datagridview