Ver Mensaje Individual
  #1 (permalink)  
Antiguo 23/05/2013, 02:41
pamelacr
 
Fecha de Ingreso: abril-2013
Ubicación: Bogota
Mensajes: 4
Antigüedad: 10 años, 10 meses
Puntos: 0
Pregunta verificar duplicados en un listview

buenas tengo un programa en visual basic y lo que quiero es que a la hora de insertar un dato en un listview este lo compare si ya se encuentra en el listview me tire un mensaje indicándolo de lo contrario nada mas lo inserta en el listview.

lo que he hecho es esto pero me surgen errores: como en el finditem y en el private donde se llama al duplicado.

Código:
Function Duplicado(ByVal dato As String) As Boolean
        Duplicado = True
        With lstDatos
            On Error Resume Next
            If LCase(lstDatos.FindItem(dato)) <> LCase(dato) Then
                Duplicado = False
            End If
            Err.Clear()
        End With
    End Function

 Private Sub ValidarDatos()
        Try
 If txtCedula.Text.Trim.Length = 0 Then
                Throw New Exception("Cedula vacia")
                Exit Sub
            End If
            'si la funcion devuelve false, es porque no se encontro el elemento por lo tanto no esta duplicado'
            If Duplicado(Text(txtCedula)) = False Then
                (lstDatos.Items.Add, , txtCedula)
            Else
                'elemento repetido'
                Throw New Exception("La cedula ya existe")
            End If

        Catch ex As Exception
            Throw ex
        End Try
    End Sub