[ممدوح]

اكواد select و update موجودة في الداتاسيت الخاصة بالمشروع DBDataSet.xsd وليست الموجودى تحت تصميم الفورم2
وستجد فيها كل من Fill وهي التي افتراضيا مع الداتاسيت
و ستجد انني أنشئت GetDataBy وتطلب بارامتر واحد وهو اسم التصنيف
و ستجد أيضا انني أنشئت UpdateQuantity وتطلب بارامتران احدهما الكمية المطلوب بيعها والثاني رقم الصنف

وهذا كود الزر البيع للفورم1

كود :

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        If MsgBox("متاكد", MsgBoxStyle.YesNo) = MsgBoxResult.Yes Then
            Con.Open()
            For Each r As DataGridViewRow In Me.DataGridView2.Rows
                Dim id As Integer = r.Cells(0).Value
                Dim qt As Integer = r.Cells(3).Value
                Dim cmd As New SqlCeCommand("UPDATE stock SET t3 = t3 - @qty WHERE id = @id", Con)
                cmd.Parameters.AddWithValue("@qty", qt)
                cmd.Parameters.AddWithValue("@id", id)
                cmd.ExecuteNonQuery()
            Next
            Con.Close()
            loading()
            MsgBox("تم البيع")
        End If