منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
لماذا لا يعرض السجل المكرر - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : لماذا لا يعرض السجل المكرر (/showthread.php?tid=37438)

لماذا لا يعرض السجل المكرر - atefkhalf2004 - 10-01-21

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

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

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

RE: لماذا لا يعرض السجل المكرر - 1nj - 10-01-21

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

RE: لماذا لا يعرض السجل المكرر - atefkhalf2004 - 10-01-21

اعطي هذا الخطا
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)

RE: لماذا لا يعرض السجل المكرر - atefkhalf2004 - 10-01-21

http://vb4arb.com/vb/showthread.php?tid=37148
ارغب في عرض رسالة بالتكرار
ولذلك حاولت ان اضيف الجريد في جدول
وابحث في الجدول
محاولة مني حتي اعرض السجل المكرر

RE: لماذا لا يعرض السجل المكرر - 1nj - 10-01-21

ارفق المشروع

RE: لماذا لا يعرض السجل المكرر - atefkhalf2004 - 10-01-21

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

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

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

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

RE: لماذا لا يعرض السجل المكرر - 1nj - 10-01-21

(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


RE: لماذا لا يعرض السجل المكرر - atefkhalf2004 - 11-01-21

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

RE: لماذا لا يعرض السجل المكرر - atefkhalf2004 - 11-01-21

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

RE: لماذا لا يعرض السجل المكرر - atefkhalf2004 - 11-01-21

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