Lisbox - Sem repetir dados

[m_sotti 0]

Olá Pessoal!É o seguinte,... tenho uma aplicação onde uso um listView para visualizar os dados do banco, neste listView eu seleciono os dados (esses dados são sempre númericos) desejados para que sejam incluídos em um listBox. Porém não posso permitir que o mesmo dado seja atribuido ao listBox duas vezes.Alguém sabe como eu restrinjo essa duplicidade?????ObrigadoMiguel

[m_sotti 0]

Desculpe, esqueci de comentar um detalhe importante.Os dados do listView (origem dos dados) são apresentados por uma conseulta no banco e neste caso não tem como eu duplica-los, porém o LISTBOX (destino dos dados que estão no listView), não são retirados de uma consulta. Só passam de uma lista para outra, porém na lista de destino não podem ser duplicados.

[eriva_br 7]

uma forma de fazer isso seria verificando 1 a 1 na lista

 

Dim i As Integer		For i = 0 To Me.List1.ListCount - 1		If Me.List1.List(i) = Me.Text1.Text Then			MsgBox "este item já está na lista.", vbApplicationModal + vbExclamation, "Item Duplicado"			Exit Sub		End If	Next i	Me.List1.AddItem Me.Text1.Text

falows

t+

[m_sotti 0]

OK! Era isso mesmo.Obrigado