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

نسخة كاملة : توقيف العد عند الوصول للرقم واحد
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
السلام عليكم .اخواني عند زر امر يقوم بانقاص الكمية من الداتاجريد عند الضغط عليه كل مرة ينقص واحد . المشكلة عند ما يصل الى صفر يكمل النقصان -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
Next
السلام عليكم ورحمة الله وبركاته
احي العيدروس اولا لي سؤال هل تقصد الانقاص عند اختيار صف محدد ام كل الصفوف؟
شكرا اخي ابراهيم . لا انا اتعامل مع صف لوحده . اضغط على صف معين من الداتاجريد فيو لتنتقل البيانات الى التاكسات بوكس ثم اضغط على زر الامر . كل صف وحدو و ليس كل الصفوف اخي ابراهيم
اخي العيدروس 

 للصف الحالي المحدد 
كود :
  ' هذا للصف الحالي النشط  المعلم عليه الخلية المعنية في العمود 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 Sub
بارك الله فيك اخي ابراهيم الهي يجازيك كل خير ان شاء الله .لو سمحت اخي ابراهيم كيف اضع هذه الجملة داخل الكود في مشاركتي الاولى 
كود :
   If DataGridView1.CurrentRow.Cells(3).Value > 1 Then
          DataGridView1.CurrentRow.Cells(3).Value -= 1
      End If
اخي العيدروس
مربع النص هذا   TextCode.Text ماذا يوجد فيه حتى تعمل مقارنة مع الصف الحالي الخلية صفر ؟ هل هو الاي دي؟
(12-01-21, 01:57 AM)ابراهيم ايبو كتب : [ -> ]اخي العيدروس
مربع النص هذا   TextCode.Text ماذا يوجد فيه حتى تعمل مقارنة مع الصف الحالي الخلية صفر ؟ هل هو الاي دي؟

هذا التاكست بكس عند الضغط على صف الداتاجريد يظهر فيه رمز الباركود اخي ابراهيم و العملية للتعديل اقارن بين بين التاكست بكس و فيها الباركود و بين سطر الباركود بالداتاجريد و هي الخلية ( 0) و الكمية في الخلية (3) هو كلو يمشي عادي الا عند تعديل الكمية بالنقصان يمشي عادي لكن النقصان يستمر كلما ضغطت على زر الامر و يكمل ليبدا في الارقام السلبية اريد لما تصل الكمية لادنى حد و هو 1 يتوقف و لا يكمل للارقام السلبية
اخي العزيز العيدروس
بما انك تختار الصف من الداتاغرايد بالماوس ينتقل كود الصنف الى مربع النص ولا علاقة له بما نكتبه في الكود
فقط اكتب الكود كما كتبته لك بدون مقارنة
اما ان كنت تحتار الصف بناء على الكود الموجود في مربع النص فهذا امر ا×ر 
اخبرني ان كنت تريد ذلك
بارك الله فيك فعلا نفعت معي الطريقة الهي يكرمك و يعطيك ما تتمناه و يزيدك من علمه و فضله اخي ابراهيم
الحمد لله والشكر لله
ولك جزيل الشكر اخي العيدروس وبارك الله فيك ولك