[Taha Okla]

وعليكم السلام ورحمة الله وبركاته

المفروض بعد تعديل الكمية أن تعطي أمر انهاء الحلقة أو الاجراء كي لا يضيفه مرة أخرى
كأن :
- تضيف بعد كود الاضافة كود(Exit For)  لانهاء الحلقة في حال هي من تظيف السطر الجديد 
- أو  تضيف (Exit Sub) لانهاء كامل الاجراء إذا كانت الاضافة بعد الحلقة.
فيصبح الكود هو :

كود :

 Private Sub qte_vente_KeyDown(sender As Object, e As KeyEventArgs) Handles qte_vente.KeyDown
       For i As Integer = 0 To DGVBill.Rows.Count - 1
           If qte_vente.Text = "" Then
               Return
           ElseIf DGVBill.Rows(i).Cells(1).Value = codebare_vente.Text Then
               DGVBill.Rows(i).Cells(5).Value = Val(DGVBill.Rows(i).Cells(5).Value + Val(qte_vente.Text))
            Exit Sub
           End If
       Next