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

(21-12-20, 10:02 PM)السندبااد كتب : [ -> ]

وعليكم السلام ورحمة الله وبركاته

شكراً على التسلية الرائعة

ولإغناء الموضوع، يمكنك فعل ذلك بأسطر قليلة من خلال تقنية LINQ، تفضل هذه الأسطر فقط:

PHP كود :

       Dim query = d1.Rows.Cast(Of DataGridViewRow)().GroupBy(Function(x) x.Cells(0).Value).Where(Function(g) g.Count() > 1).ToDictionary(Function(x) x.Key, Function(y) y.Count())
        For Each item In query
            d2.Rows.Add(item.Key, item.Value)
        Next 


LINQ
هذه التقنية رغم انكم ترونها سهلة الا انها مطولة .
اعان الله الجميع.

(06-01-21, 01:55 PM)السندبااد كتب : [ -> ]

أكرمك الله أخي الحبيب سعود، وشكراً على جهودك الطيبة في نفع الآخرين، أسأل الله تعالى أن يجعلها في موازينك

للفائدة أيضاً: يمكن اختصار العملية بسطر واحد فقط من خلال تقنية LINQ:

PHP كود :

d1.Rows.Cast(Of DataGridViewRow)().GroupBy(Function(x) x.Cells(0).Value).Where(Function(g) g.Count() > 1).ToDictionary(Function(x) x.Key, Function(y) y.Count()).ToList().ForEach(Sub(s) d2.Rows.Add(s.Key, s.Value)) 


و اياك اخي الكريم و كل من يقرا هذا الكلام.
هل تصدق ان قلت لك ان السطر اللذي كتبتَه أرى وكأنه لغز او تشفير ويحتاج اعادة الفك.

(07-01-21, 03:07 AM)سعود كتب : [ -> ]

(06-01-21, 01:55 PM)السندبااد كتب : [ -> ]

أكرمك الله أخي الحبيب سعود، وشكراً على جهودك الطيبة في نفع الآخرين، أسأل الله تعالى أن يجعلها في موازينك

للفائدة أيضاً: يمكن اختصار العملية بسطر واحد فقط من خلال تقنية LINQ:

PHP كود :

d1.Rows.Cast(Of DataGridViewRow)().GroupBy(Function(x) x.Cells(0).Value).Where(Function(g) g.Count() > 1).ToDictionary(Function(x) x.Key, Function(y) y.Count()).ToList().ForEach(Sub(s) d2.Rows.Add(s.Key, s.Value)) 


و اياك اخي الكريم و كل من يقرا هذا الكلام.
هل تصدق ان قلت لك ان السطر اللذي كتبتَه أرى وكأنه لغز او تشفير ويحتاج اعادة الفك.

(07-01-21, 11:26 PM)السندبااد كتب : [ -> ]

(07-01-21, 03:07 AM)سعود كتب : [ -> ]

(06-01-21, 01:55 PM)السندبااد كتب : [ -> ]

أكرمك الله أخي الحبيب سعود، وشكراً على جهودك الطيبة في نفع الآخرين، أسأل الله تعالى أن يجعلها في موازينك

للفائدة أيضاً: يمكن اختصار العملية بسطر واحد فقط من خلال تقنية LINQ:

PHP كود :

d1.Rows.Cast(Of DataGridViewRow)().GroupBy(Function(x) x.Cells(0).Value).Where(Function(g) g.Count() > 1).ToDictionary(Function(x) x.Key, Function(y) y.Count()).ToList().ForEach(Sub(s) d2.Rows.Add(s.Key, s.Value)) 


و اياك اخي الكريم و كل من يقرا هذا الكلام.
هل تصدق ان قلت لك ان السطر اللذي كتبتَه أرى وكأنه لغز او تشفير ويحتاج اعادة الفك.

أنت محق للغاية، وهذا الكلام قلته أنا لنفسي يوماً، لكن بعد ذلك وجدت أن الأمر ليس كما أعتقد، فتقنية LINQ سريعة للغاية وسهلة وتختصر عليك عشرات الأسطر؛ لذا قمت بتعلمها والحمد لله.

وبناء على ذلك، قمت بشرح الكود السابق لك في الفيديو التالي، وضمن المرفقات ستجد السورس:

(07-01-21, 11:26 PM)السندبااد كتب : [ -> ]

(07-01-21, 03:07 AM)سعود كتب : [ -> ]

(06-01-21, 01:55 PM)السندبااد كتب : [ -> ]

أكرمك الله أخي الحبيب سعود، وشكراً على جهودك الطيبة في نفع الآخرين، أسأل الله تعالى أن يجعلها في موازينك

للفائدة أيضاً: يمكن اختصار العملية بسطر واحد فقط من خلال تقنية LINQ:

PHP كود :

d1.Rows.Cast(Of DataGridViewRow)().GroupBy(Function(x) x.Cells(0).Value).Where(Function(g) g.Count() > 1).ToDictionary(Function(x) x.Key, Function(y) y.Count()).ToList().ForEach(Sub(s) d2.Rows.Add(s.Key, s.Value)) 


و اياك اخي الكريم و كل من يقرا هذا الكلام.
هل تصدق ان قلت لك ان السطر اللذي كتبتَه أرى وكأنه لغز او تشفير ويحتاج اعادة الفك.

أنت محق للغاية، وهذا الكلام قلته أنا لنفسي يوماً، لكن بعد ذلك وجدت أن الأمر ليس كما أعتقد، فتقنية LINQ سريعة للغاية وسهلة وتختصر عليك عشرات الأسطر؛ لذا قمت بتعلمها والحمد لله.

وبناء على ذلك، قمت بشرح الكود السابق لك في الفيديو التالي، وضمن المرفقات ستجد السورس:

بارك الله فيكم هل من الممكن توجيهنا إلى الفيديوهات ال درستها أو طرقة تعلمنا أسرع وتختصر علينا المشوار وبارك الله فيكم

قمت أنا بالاستفادة من الدورات المنتشرة على اليوتيوب وأغلبها كانت بلغة #C، ولكن لم أواجه مشكلة؛ لأنني كنت أحول الكود للغة VB.NET من خلال بعض المواقع والأدوات المساعدة، كما استفدت من وثائق ومستندات مايكروسوفت، وكنت أطبق عملياً كل ما أتعلمه، وهذا جعلني أستفيد بشكل كبير.

تفضل المصادر:
1- وثائق ومستندات مايكروسوفت، وقد حملتها على شكل ملفات PDF، وهي بالمرفقات.
2- بنك الأكواد الجاهزة مع الشرح LINQ - Sample Queries، وهو بالمرفقات.
3- LINQ in C# سلسلة دروس وLINQ To SQL وLINQ To XML: ستجدها في قناة Ahmed Goda، تفضل الرابط:
4- سلسلة Linq من kudvenkat.arabic، وتضم (LINQ to SQL in arabic - LINQ to XML in arabic - LINQ tutorial in arabic)، تفضل الرابط:
5- كورس Linq To Sql من قناة المبرمج العربي، تفضل الرابط:

(08-01-21, 12:55 PM)السندبااد كتب : [ -> ]

أبشر أخي العزيز.

قمت أنا بالاستفادة من الدورات المنتشرة على اليوتيوب وأغلبها كانت بلغة #C، ولكن لم أواجه مشكلة؛ لأنني كنت أحول الكود للغة VB.NET من خلال بعض المواقع والأدوات المساعدة، كما استفدت من وثائق ومستندات مايكروسوفت، وكنت أطبق عملياً كل ما أتعلمه، وهذا جعلني أستفيد بشكل كبير.

تفضل المصادر:
1- وثائق ومستندات مايكروسوفت، وقد حملتها على شكل ملفات PDF، وهي بالمرفقات.
2- بنك الأكواد الجاهزة مع الشرح LINQ - Sample Queries، وهو بالمرفقات.
3- LINQ in C# سلسلة دروس وLINQ To SQL وLINQ To XML: ستجدها في قناة Ahmed Goda، تفضل الرابط:

https://www.youtube.com/c/AhmedGoda95/playlists

4- سلسلة Linq من kudvenkat.arabic، وتضم (LINQ to SQL in arabic - LINQ to XML in arabic - LINQ tutorial in arabic)، تفضل الرابط:

https://www.youtube.com/c/kudvenkatarabic/playlists

5- كورس Linq To Sql من قناة المبرمج العربي، تفضل الرابط:

https://www.youtube.com/playlist?list=PL...3rvr9wLP_C

أسأل الله تعالى لك التوفيق، ولا تنسانا من دعواتك الطيبة