¿me podeis ayudar? gracias
Código:
Dim comp As Boolean Dim cuantas As Integer If MessageBox.Show("¿Desea eliminar los usuarios seleccionados?", "Eliminar contactos", MessageBoxButtons.YesNo) = MsgBoxResult.Yes Then If listado.SelectedRows.Count > 0 Then cuantas = listado.SelectedRows.Count Dim objauxclient As claseContacto Dim i As Integer i = 0 For Each dr As DataGridViewRow In listado.SelectedRows While cuantas > 0 If listado.Item(0, i).Selected Then objauxclient = (listado.Item(0, i).Value) 'ERROR: No se puede convertir un objeto de tipo 'System.Int32' al tipo 'misContactos.claseContacto'. If baseDatos.Baja(objauxclient) Then comp = True Else comp = False End If i = i + 1 cuantas = cuantas - 1 Else i = i + 1 End If End While Next Else MsgBox("ERROR") End If If comp = True Then MsgBox("eliminados correctamente") Else MsgBox("Error") End If Else MsgBox("Seleccione al menos un contacto", MsgBoxStyle.Exclamation) End If End Sub