[23656]

كود :

   Private Sub btnsave_Click(sender As Object, e As EventArgs) Handles btnsave.Click

       If con.State <> ConnectionState.Open Then con.Open()

       Dim id_shirid As Integer

       Using cmd As New OleDb.OleDbCommand("UPDATE [tab_pro] SET [qty]=[qty]-@qty WHERE [id]=@id ", con)
           For Each r As DataGridViewRow In dgvprodac.Rows
               cmd.Parameters.Clear()
               cmd.Parameters.AddWithValue("@qty", Val(r.Cells(0).Value))
               cmd.Parameters.AddWithValue("@id", Val(r.Cells(2).Value))
               cmd.ExecuteNonQuery()
           Next
       End Using

       Using cmd As New OleDb.OleDbCommand("INSERT INTO [tabolder] ([prosh], [sailman],[shirid]) VALUES (@date, @sailman, @ID)", con)
           cmd.Parameters.AddWithValue("@date", dtolder.Value.Date)
           cmd.Parameters.AddWithValue("@sailman", TXTGNAME.Text)
           cmd.Parameters.AddWithValue("@ID", txtnamper.Text)
           cmd.ExecuteNonQuery()
           cmd.CommandText = "SELECT @@IDENTITY"
           id_shirid = cmd.ExecuteScalar
       End Using

       Using cmd As New OleDb.OleDbCommand("INSERT INTO [prosh_older] ([itemid], [qtnitem], [unititem], [totitem], [idpro]) VALUES (@itemid, @qtnitem, @unititem, @totitem, @idpro)", con)
           For Each r As DataGridViewRow In dgvprodac.Rows
               cmd.Parameters.Clear()
               cmd.Parameters.AddWithValue("@itemid", r.Cells(0).Value)
               cmd.Parameters.AddWithValue("@qtnitem", r.Cells(2).Value)
               cmd.Parameters.AddWithValue("@unititem", r.Cells(3).Value)
               cmd.Parameters.AddWithValue("@totitem", r.Cells(4).Value)
               cmd.Parameters.AddWithValue("@idpro", id_shirid)
               cmd.ExecuteNonQuery()
           Next
       End Using

       Using cmd As New OleDb.OleDbCommand("SELECT MAX(shirid)+1 FROM [tabolder]", con)
           txtnamper.Text = cmd.ExecuteScalar()
       End Using

       con.Close()

       MsgBox("تم حفظ الفاتوره")
       txttotal.Clear()
       Label15.Text = "..."

   End Sub