[technomedia]

(01-08-22, 05:51 AM)بالفعل أخي 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

                     

تنويه: الكود الآن يقوم بادخال البيانات DT الى DGV  وفي حال وجد بأن العنصر موجود مسبقا ، يقوم بتعديل الكمية فقط و إضافة الكمية الجديدة الموجودة في خانة التاكست بوكس الخاص بالكمية ، في جميع الصفوف وليس في الصف الأول فقط كما حدث معي سالفا.