[technomedia]

كود :

Private Sub qte_vente_KeyDown(sender As Object, e As KeyEventArgs) Handles qte_vente.KeyDown
   
       If e.KeyCode = Keys.Enter Then
           If qte_vente.Text = "" Or qte_vente.Text = "0" Then
               MsgBox("أدخل الكمية المطلوبة")
           Else
               For i As Integer = 0 To DGVBill.Rows.Count - 1
                   If 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))
                                            calcul()
                       Exit Sub
                   Else
                       Dim row As DataRow = dt.NewRow
                       row(0) = gid()
                       row(1) = codebare_vente.Text
                       row(2) = designation_vente.Text
                       row(3) = unite_vente.Text
                       row(4) = pd_vente.Text
                       row(5) = qte_vente.Text
                       row(6) = ptotal_vente.Text
                       dt.Rows.Add(row)
                       DGVBill.DataSource = dt
                       calcul()
                   End If
                   Exit Sub
               Next
           End If
     End If


الآن الكود يقوم بمنع تكرار الصف الأول فقط في الداتاغريد فياو وليس في كل الداتاغريد فياو كما هو مطلوب ، رغم وجود الدالة For (i)