RETIRAR ITENS REPETIDOS LISTBOX
como faco para retirar itens repetidos de um listbox
é meio chatinho mas é simples
QtdeLinhas = List1.ListCount - 1
For X = 0 to QtdeLinhas
For Z = 0 to QtdeLinhas
If X <> Z Then
If List1.List(X) = List1.List(Z) Then
List1.Removeitem(Z)
QtdeLinhas = QtdeLinhas - 1
end if
End If
Next Z
Next X
Eu n testei, mas pelo q vi, seria mais ou menos isso...qq coisa posta novamente, mesmo pq mais tarde, vou pro escritório e poderei testar tb..
Boa sorte
Você está carregando os itens de um Banco dados ???
Se for, poderá retirar na sql.
Falow... T+
Se for, poderá retirar na sql.
Falow... T+
Só for pelo banco conforme o MARIO falou vc pode fazer uma SQL que dá certo mais ou menos assim.
Select Distinct(SeuCampo) from SuaTabela.
Select Distinct(SeuCampo) from SuaTabela.
os dados nao sao do banco de dados... sao de um arquivo .txt que estou carregando para um listbox... dae queria tirar os repetidos
SINKERTEC,
brown nao testei o codigo mais lendo ele aqui... acho que pode nao funcionar ja que X e Z .. sempre vao comecar do mesmo ponto e nunca vao ser diferentes um do outro.
brown nao testei o codigo mais lendo ele aqui... acho que pode nao funcionar ja que X e Z .. sempre vao comecar do mesmo ponto e nunca vao ser diferentes um do outro.
Na verdade não
Qdo o FOR se inicia, ele conta X como 0, qdo chega no Next X, ele acrescenta 1, então X passa a valer um entendeu.
Eu testei e funciona...fica tranquilo..
Tipo crie uma função ChecarRepetidos e coloque meu código dentro
Daàqdo carregar esse txt..execute a função..n tem erro
Boa sorte
meu maus ae, nao prestei atencao no codigo, ja esta funcionando aqui.. vlw's =D
GRATO!!
=)
GRATO!!
=)
Blz..
precisando é só mandar
n eskece de encerrar o tópico
abraços
frmz flw's =D
Tópico encerrado , respostas não são mais permitidas