[h2551996]

مشكورين جميعا
هذا الكود لمن يحتاج

كود :

Private Sub Button5_Click111(sender As Object, e As EventArgs) Handles Button5.Click
If MessageBox.Show("هل أنت متأكد من مواصلة حذف جميع الفواتير المحددة؟", "تنبيه", MessageBoxButtons.YesNo, MessageBoxIcon.Question, MessageBoxDefaultButton.Button2) = Windows.Forms.DialogResult.No Then
Exit Sub
Else
con = New SqlConnection(cs)
If con.State = 1 Then con.Close()
con.Open()
cmd = New SqlCommand
For i As Integer = 0 To DgvQuick.SelectedRows.Count - 1

With cmd
.CommandType = CommandType.Text
Dim comd As New SqlCommand("Delete from QuickSale_Tbl Where Sale_ID=@Sale_ID", con)
comd.Parameters.Add("@Sale_ID", SqlDbType.Decimal).Value = DgvQuick.SelectedRows(i).Cells(0).Value
' comd.Parameters.Add("@Product_ID", SqlDbType.Int).Value = DgvPrd.Rows(i).Cells(0).Value
comd.ExecuteNonQuery()
End With

Next
con.Close()
LoadAllQuick_Sale()
End If
''

''
End Sub