[العيدروس]

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

[ابراهيم ايبو]

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

[العيدروس]

بارك الله فيك فعلا نفعت معي الطريقة الهي يكرمك و يعطيك ما تتمناه و يزيدك من علمه و فضله اخي ابراهيم

[ابراهيم ايبو]

الحمد لله والشكر لله

ولك جزيل الشكر اخي العيدروس وبارك الله فيك ولك