Al seleccionar todos los Ítem y quitarlos "todos" no aumenta el stock en el libro que corresponde, solo lo aumenta al primer ID. Pero si selecciono solo uno de ellos si funciona a la perfección. Todos los registros están en DatagridView donde al querer quitar "eliminar" los registros se añade una columna con un checkbox solo los que están con un checked seran eliminados, al seleccionar todos los checkeds y eliminar todos ocurre un error "la función aumentar cantidad solo aumenta al primer Item y no a los que corresponde".
Dim result As DialogResult
result = MessageBox.Show("Realmente decea quitar los libros seleccionados?", "Eliminando registros", MessageBoxButtons.OKCancel)
If result = DialogResult.OK Then
Try
For Each row As DataGridViewRow In dgvdetalleprestamo.Rows
Dim marcado As Boolean = Convert.ToBoolean(row.Cells("Eliminar").Value)
If marcado Then
Dim onekey As Integer = Convert.ToInt32(row.Cells("coddetallepres").Value)
Dim vdb As New vdetalle_prestamo
Dim func As New fdetalle_prestamo
vdb.gcoddetallepres = onekey
vdb.gcodlib = dgvdetalleprestamo.SelectedCells.Item(3).Value
vdb.gcodpre = dgvdetalleprestamo.SelectedCells.Item(2).Value
vdb.gcantidad = dgvdetalleprestamo.SelectedCells.Item(5).Value
If func.eliminar(vdb) Then
If func.aumentar_cantidad(vdb) Then
End If
cboeliminar.CheckState = CheckState.Unchecked
Else
MessageBox.Show("Libro no fue retirado", "Quitando libros", MessageBoxButtons.OK, MessageBoxIcon.Warning)
End If
End If
Next
Call mostrar()
La función AUMENTAR CANTIDAD DEBIERA IR AHÍ?
Public Function aumentar_cantidad(ByVal dts As vdetalle_prestamo)
Try
conectado()
cmd = New SqlCommand("aumentar_cantidad")
cmd.CommandType = CommandType.StoredProcedure
cmd.Connection = cnn
cmd.Parameters.AddWithValue("@codlib", dts.gcodlib)
cmd.Parameters.AddWithValue("@cantidad", dts.gcantidad)
If cmd.ExecuteNonQuery Then
Return True
Else
Return False
End If
Catch ex As Exception
MsgBox(ex.Message)
Return False
Finally
desconectado()
End Try
End Function