+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] عدم الاضافه المتكرره في الست فيو (/showthread.php?tid=27241)
عدم الاضافه المتكرره في الست فيو - Ebrahim5556 - 01-11-18
السلام عليكم ورحمه الله وبركاته
فديتكم ساعدوني
عندي برنامج واجب هوا مبيعات
فيه داتا قريد فيو وعندي لست فيو
الداتا قراد فيه منتجات كل مااهمس على سطر في الداتا يضيفه للست فيو
المشكله عندي عندما اضيف مرتين من نفس الصنف ينظافو في سطرين
اريد مايكرر عندما اضيف صنف وهو موجود في الست يعدل على العدد اتمنى تساعدوني
RE: عدم الاضافه المتكرره في الست فيو - elgokr - 02-11-18
وعليكم السلام ورحمة الله وبركاته
قبل سطر الاضافة ضع كود شرط التحقق
بحيث انه يقوم بالتحقق على الاسم اذا تم وجود الاسم
يقوم عملية جمع للاعداد / القيمة فى المكان الخاص به
واذا لم يتحقق الشرط يقوم بتنفيذ كود الاضافة لاضافة الاسم الجديد
وبكده تكون حليت المشكلة
تحياتى لك
وتمنياتى لك التوفيق
RE: عدم الاضافه المتكرره في الست فيو - Ebrahim5556 - 02-11-18
اخوي انا عجزت وحاولت جيب لي كوود الله يرحم ولديك
RE: عدم الاضافه المتكرره في الست فيو - elgokr - 02-11-18
ارفق المشورع حتى يتم عمل الكود طبقاً للمسميات والاكواد المستخدمة لديك
حتى تتمكن من استخدام الكود مباشراً وتوضح لك الصورة بشكل كامل دون اى متاهة
تحياتى لك
وتمنياتى لك التوفيق
RE: عدم الاضافه المتكرره في الست فيو - Ebrahim5556 - 02-11-18
استخدم قاعده بيانات وكذا بتتخربط يرحم ولديك ساعدني بالكود كتابه
Datagridview فيها بيانات من قاعده البيانات
وعند الضغط على صف من datagridview
يضيفه لل listview
وعندما يضيف مره اخرا من نفس الصنف الي اضفته لل list
مايضيف صف جديد
يعدل على العدد والسعر في list
يحفظك ربي
RE: عدم الاضافه المتكرره في الست فيو - XBOOBX - 02-11-18
وعليكم السلام اتفضل كود حذف المكرر
كود :
Private Sub ListView1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListView1.SelectedIndexChanged
Dim hash As New System.Collections.Hashtable()
Dim itemI As ListViewItem
Dim itemKey As String
For Each itemI In Me.ListView1.Items
itemKey = itemI.SubItems(0).Text
If Not hash.ContainsKey(itemKey) Then
hash.Add(itemKey, itemI)
End If
Next
Me.ListView1.Items.Clear()
For Each itemI In hash.Values
Me.ListView1.Items.Add(itemI)
Next
End Subنست ان اوضح طريقة الحذف التلقائي
ان كنت تريد يحذف تلقائي بدون الضغط على اليست فايو
ان كنت تريد يحذف تلقائي بدون الضغط على اليست فايو
ضع الكود في تايمر وجعل خاصية الانيبل الى تروي
بالتوفيق اخي
بالتوفيق اخي
RE: عدم الاضافه المتكرره في الست فيو - elgokr - 03-11-18
مرفق بالرد مثال بسيط يوضح الفكرة للتحقق
حتى لا يتم اضافة البيانات بشكل مكرر لم يتم ادراج كود الدمج للاعداد
لانى لا اعلم الكود المستخدم لديك ولا الطريقة المستخدمة لديك
ولكن بدلاً من سطر الرسالة بانه يوجد تطابق قم باستبداله بكود الدمج
وبكده تكون انهيت ما تريد فعله
مرفق السورس + برنامج للاختبار
السورس (2015)
السورس المرفق ما هو الا لتوضيح الفكرة فقط
وعليك ان تبني وتكون الامر بناءاً لما هو لديك
تحياتى لك
وتمنياتى لك التوفيق