+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=37452)
توقيف العد عند الوصول للرقم واحد - العيدروس - 12-01-21
السلام عليكم .اخواني عند زر امر يقوم بانقاص الكمية من الداتاجريد عند الضغط عليه كل مرة ينقص واحد . المشكلة عند ما يصل الى صفر يكمل النقصان -1 -2 -3 .....
اريد عندما تصل الكمية الى 1 الى الحد الادنى و هو 1 يتوقف و لا نستطيع عند الضغط على زر الامر النقصان شكرا بارك الله فيكم
الكود
كود :
For K as Integer = 0 To DatagridView1.Rows.Count - 1
If TextCode.Text = DatagridView1.Rows(K).Cells(0).Value Then
DatagridView1.Rows(K).Cells(3).Value = DatagridView1.Rows(K).Cells(3) - 1
End If
NextRE: توقيف العد عند الوصول للرقم واحد - ابراهيم ايبو - 12-01-21
السلام عليكم ورحمة الله وبركاته
احي العيدروس اولا لي سؤال هل تقصد الانقاص عند اختيار صف محدد ام كل الصفوف؟
RE: توقيف العد عند الوصول للرقم واحد - العيدروس - 12-01-21
شكرا اخي ابراهيم . لا انا اتعامل مع صف لوحده . اضغط على صف معين من الداتاجريد فيو لتنتقل البيانات الى التاكسات بوكس ثم اضغط على زر الامر . كل صف وحدو و ليس كل الصفوف اخي ابراهيم
RE: توقيف العد عند الوصول للرقم واحد - ابراهيم ايبو - 12-01-21
اخي العيدروس
للصف الحالي المحدد
كود :
' هذا للصف الحالي النشط المعلم عليه الخلية المعنية في العمود 3 ذو الاندكس 2
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
If DataGridView1.CurrentRow.Cells(2).Value > 1 Then
DataGridView1.CurrentRow.Cells(2).Value -= 1
End If
End Subكود :
TextBox1.Text =DataGridView1.CurrentRow.Cells(2).Value.ToString()وهذا للداتاغرايد كلها مهما كان الرقم في الخلية ذات الكمية ولو اختلفت القيم سيتم انقاث 1 من كل الحلايا في كل ضغطة زر
كود :
' هذا لكل الصفوف ويتم انقاص الخلية المعنية في العمود 3 ذو الاندكس 2
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
For i As Integer = 0 To DataGridView1.Rows.Count - 1
If DataGridView1.Rows(i).Cells(2).Value > 1 Then
DataGridView1.Rows(i).Cells(2).Value -= 1
End If
Next
End SubRE: توقيف العد عند الوصول للرقم واحد - العيدروس - 12-01-21
بارك الله فيك اخي ابراهيم الهي يجازيك كل خير ان شاء الله .لو سمحت اخي ابراهيم كيف اضع هذه الجملة داخل الكود في مشاركتي الاولى
كود :
If DataGridView1.CurrentRow.Cells(3).Value > 1 Then
DataGridView1.CurrentRow.Cells(3).Value -= 1
End IfRE: توقيف العد عند الوصول للرقم واحد - ابراهيم ايبو - 12-01-21
اخي العيدروس
مربع النص هذا TextCode.Text ماذا يوجد فيه حتى تعمل مقارنة مع الصف الحالي الخلية صفر ؟ هل هو الاي دي؟
RE: توقيف العد عند الوصول للرقم واحد - العيدروس - 12-01-21
(12-01-21, 01:57 AM)ابراهيم ايبو كتب : اخي العيدروس
مربع النص هذا TextCode.Text ماذا يوجد فيه حتى تعمل مقارنة مع الصف الحالي الخلية صفر ؟ هل هو الاي دي؟
هذا التاكست بكس عند الضغط على صف الداتاجريد يظهر فيه رمز الباركود اخي ابراهيم و العملية للتعديل اقارن بين بين التاكست بكس و فيها الباركود و بين سطر الباركود بالداتاجريد و هي الخلية ( 0) و الكمية في الخلية (3) هو كلو يمشي عادي الا عند تعديل الكمية بالنقصان يمشي عادي لكن النقصان يستمر كلما ضغطت على زر الامر و يكمل ليبدا في الارقام السلبية اريد لما تصل الكمية لادنى حد و هو 1 يتوقف و لا يكمل للارقام السلبية
RE: توقيف العد عند الوصول للرقم واحد - ابراهيم ايبو - 12-01-21
اخي العزيز العيدروس
بما انك تختار الصف من الداتاغرايد بالماوس ينتقل كود الصنف الى مربع النص ولا علاقة له بما نكتبه في الكود
فقط اكتب الكود كما كتبته لك بدون مقارنة
اما ان كنت تحتار الصف بناء على الكود الموجود في مربع النص فهذا امر ا×ر
اخبرني ان كنت تريد ذلك
RE: توقيف العد عند الوصول للرقم واحد - العيدروس - 12-01-21
بارك الله فيك فعلا نفعت معي الطريقة الهي يكرمك و يعطيك ما تتمناه و يزيدك من علمه و فضله اخي ابراهيم
RE: توقيف العد عند الوصول للرقم واحد - ابراهيم ايبو - 12-01-21
الحمد لله والشكر لله
ولك جزيل الشكر اخي العيدروس وبارك الله فيك ولك