ADICIONAR REGISTRO DE UM LISTBOX PARA OUTRO LISTBO

USUARIO.EXCLUIDOS 15/07/2005 09:46:31
#94275

Pessoal
Tenho dois ListBox , sendo que o lstDisponivel carrega os dados do BD onde o usuário seleciona e adiciona no lstSelecionado, sendo que com a rotina abaixo e para o lstSelecionado não aceitar valores duplicados,porem esta gerando um erro o mesmo não aceita mais de um registro mesmo os valores sendo diferente.

If lstDisponivel.ListIndex = -1 Then Exit Sub

Dim i As Integer

For i = 0 To lstSelecionado.ListCount - 1
lstSelecionado.ListIndex = i
If lstSelecionado.ItemData(lstSelecionado.ListIndex) = lstDisponivel.ItemData(lstDisponivel.ListIndex) Then
MsgBox "O item selecionado para inclusão já consta na lista áreas selecionadas!!!", vbInformation, "Aviso"
Exit Sub
End If
Next i
lstSelecionado.AddItem lstDisponivel.List(lstDisponivel.ListIndex)
lstSelecionado.ItemData(lstSelecionado.NewIndex) = lstDisponivel.ItemData(lstDisponivel.ListIndex)

cmdRemover.Enabled = True