10-01-21, 05:38 PM
السادة الافاضل
استفادة من مثال لزملينا الفاضل سعود
بعدم تكرار اسم في الداتاجريد فيو
ومحاولة من للاستفادة القصوي من زميانا الفاضل ومن الزملاء في المنتدي
ولهم كل الشكر والتقدير
طريقة(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
ما الخطا في الكود في عدم عرض الاسم المكرر
استفادة من مثال لزملينا الفاضل سعود
بعدم تكرار اسم في الداتاجريد فيو
ومحاولة من للاستفادة القصوي من زميانا الفاضل ومن الزملاء في المنتدي
ولهم كل الشكر والتقدير
طريقة(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
ما الخطا في الكود في عدم عرض الاسم المكرر