+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=25884)
التعامل مع سطر موجود بالداتا جرد فيو - هاني المومني - 27-07-18
بسم الله الرحمن الرحيم
بالبداية اود ان شكر جميع الاخوان القائمين والمشاركين بهذا المنتدى الرائع
الذي يقدم كل شيء من مساعدات لوجه الله تعالى
سؤالي
عندي فورم يوجد به داتا جرد فيو اقوم بتعبئتها عن طريق تكست بوكس اقوم بادخال باركود المنتج وادخل الكمية في تكست بوكس اخر
وعند الضغط على زر انتر يقوم باضافة سطر بالداتا جرد فيو علما" بان اعمدة الداتا جرد فيو تحتوي على 6 اعمدة ترتيبها كالتالي :
1. رقم المنتج
2. باركود المنتج
3. اسم المنتج
4. سعر المنتج
5. كمية المنتج
6. السعر الاجمالي
طريقة الاضافة تعمل معي بشكل صحيح 100%
لكن اذا قمت باختيار نفس الباركود مرة اخرى يقوم باضافة سطر جديد بنفس البيانات
اريد طريقة للتحقق اذا كان رقم الباركود الذي اقوم بادخاله بالتكست بوكس الخاص بالباركود
موجود بالداتا جرد فيوم يقوم بعمل تحديث لكمية المنتج وتحديث السعر الاجمالي
كل الشكر للجميع مسبقا"
الحمد لله تم حل المشكلة بواسطة استخدام جملة While
الكود ليستفيد منه الجميع
PHP كود :
Dim i As Integer = 0
While i < dataGridView1.Rows.Count
If dataGridView1.Rows(i).Cells(0).Value.ToString() = TXT_IDPRODUCT.Text.ToString() Then
MessageBox.Show("هذا المنتج تم ادخالة مسبقاً", "تنبية", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
Return
End If
System.Math.Max(System.Threading.Interlocked.Increment(i),i - 1)
End While
RE: التعامل مع سطر موجود بالداتا جرد فيو - asemshahen5 - 27-07-18
هذا أيضا ينفع يضيف 1 الى الكمية :
كود :
For I = 0 To DataGridView1.Rows.Count - 1
If DataGridView1.Rows(I).Cells(0).Value = TXT_IDPRODUCT.Text Then
If MsgBox("هذه السلعة موجودة مسبقا هل تريد زيادة كميتها بمقدار 1", MsgBoxStyle.Question +
MsgBoxStyle.YesNo, "") = MsgBoxResult.Yes Then
DataGridView1.Rows(I).Cells(4).Value += 1
MsgBox("تمت إضافة السلعة", MsgBoxStyle.Information, "")
Exit Sub
End If
End If
Next