[مساعدة]

السلام عليكم

تعديل في جزء من كود الأستاذ ابو ليلى حسب ما ذكرت آخراً

على اعتبار انه يوجد عمود باسم id وهو رقم الصنف في الجدول
وأن عمود التشيك بوكس هو الأول (0) وأن رقم الصنف id هو الثاني (1)

كود :

Dim ids As New List(Of Integer)
For Each r As DataGridViewRow In Me.DataGridView1.Rows
    If r.Cells(0).Value Then ids.Add(CInt(r.Cells(1).Value))
Next

Dim _Update As String = "Update [TableName] Set [Price]=@Price Where [ID] IN(" & String.Join(",", ids) & ") "

مع حذف سطر

كود :

Cmd.Parameters.AddWithValue("@kind", elem)