منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

السادة الافاضل
استفادة من مثال لزملينا الفاضل سعود
بعدم تكرار اسم في الداتاجريد فيو
ومحاولة من للاستفادة القصوي من زميانا الفاضل ومن الزملاء في المنتدي
ولهم كل الشكر والتقدير

طريقة(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

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

الكود Group.Count >= 1 بيعرف كل البيانات والمفروض يكون (اكبر من) فقط بدون =

اعطي هذا الخطا
Input array is longer than the number of columns in this table.
عند
For Each row As DataGridViewRow In DataGridView2.Rows
d1.Rows.Add(row)
Next
تحديدا
d1.Rows.Add(row)

http://vb4arb.com/vb/showthread.php?tid=37148

---

ارغب في عرض رسالة بالتكرار

---

ولذلك حاولت ان اضيف الجريد في جدول
وابحث في الجدول
محاولة مني حتي اعرض السجل المكرر

ارفق المشروع

شكرا علي الاستجابة
انا عامل مشروع كبير شوية
فيه البيانات معروضة في جريد
اردت ان استفيد من خاصية التكرار

دائما اضع الكود حتي استفيد منه لاحقا

المهم حضرتك
كيف اضيف الصفوف في جريد الي داتا تابل
وبعد ذلك
ابحث فيها

وانا حاليا اعمل مشروع بسيط لارفعه لحضرتك
لحين ذلك
اتمني ان تلبي طلبي
وهو اضافة بيانات الجريد والتي بها حقول id , code , name price
الي الداتا تابل
شكرا مرة اخري علي سعة الاستجابة

(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

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

شكرا لك
تمام
تم المطلوب

استكمالا
كيف اضافة الجريد الي جدول datatable
وهو اضافة بيانات الجريد والتي بها حقول id , code , name price
الي الداتا تابل

عايز اتعلمها
كيف اضيفها الي اي داتا تابل