[Taha Okla]

هذا التعديل :

كود :

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
           End If
       Next i

       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
End If