[مساعدة]

السلام عليكم

ماذا تقصد "لكل الكميات" ؟

---

إذا كنت تقصد إنقاص كل الكميات التي في الداتاجريد فهذا هو الكود

كود :

Private Sub btnsave_Click(sender As Object, e As EventArgs)
   'باقى هنا تسميع الفاتوره فى قاعدة البيانات

   Dim cmd As New OleDbCommand(String.Empty, con)

   con.Open()
   For Each r As DataGridViewRow In dgvprodac.Rows
       Dim ad As Integer = Val(r.Cells(0).Value)
       Dim txt As Integer = Val(r.Cells(2).Value)
       cmd.CommandText = String.Format(" UPDATE [tab_pro] SET [qty] = qty -{0} WHERE [id] = {1} ", txt, ad)
       cmd.ExecuteNonQuery()
   Next
   con.Close()

   MsgBox("تمت العمليه بنجاح")
   clear()

End Sub