[1nj]

(10-01-21, 05:38 PM)atefkhalf2004 كتب : السادة الافاضل
استفادة من مثال لزملينا الفاضل سعود
بعدم تكرار اسم في الداتاجريد فيو
ومحاولة من للاستفادة القصوي من زميانا الفاضل ومن الزملاء في المنتدي
ولهم كل الشكر والتقدير

طريقة(Query)
        Dim d1, d2 As New DataTable
        d1 = New DataTable
        For Each row As DataGridViewRow In DataGridView2.Rows
            d1.Rows.Add(row)
        Next

        Dim query2 = From Item In d1.Rows.Cast(Of DataGridViewRow)() Group Item By Name = Item.Cells(2).Value Into Group Where (Group.Count >= 1) Select New With {Key .Name = Name, Key .Count = Group.Count}
        For Each item In query2
            d2.Rows.Add(item.Name, item.Count)
            MsgBox(d2.Rows(0).Item(2).ToString)
        Next

ما الخطا في الكود في عدم عرض الاسم المكرر

كود :

Dim query2 = From Item In DataGridView2.Rows.Cast(Of DataGridViewRow)() Group Item By Name = Item.Cells(2).Value Into Group Where (Group.Count > 1) Select New With {Key .Name = Name, Key .Count = Group.Count}
For Each item In query2
   MsgBox(item.Name)
Next