SELECIONAR LINHA EM LISTVIEW

USUARIO.EXCLUIDOS 12/04/2007 08:56:26
#211418
Amigos,

Estou carregando uma listview "perfeitamente", mas qdo tento ordenar linha tipo: coloco no campo txtprocurar o código e ele filtra pelo código ou pelo nome, mas, esta me retornando o seguinte erro:

Key is not unique in collection

no campo da listView:
Set newList = ListaProduto.ListItems.add(, "Key" & rst("Codigo"), rst("Codigo")

a função que estou usando e essa:

Private Sub txtProcurar_Change()
txtFiltro
End Sub


Public Sub txtFiltro()
Dim rst As New ADODB.Recordset
Dim procurarpor As String
Dim ordernarpor As String
Dim DASC As String

If cmbProcurarPor.ListIndex = -1 Then cmbProcurarPor.ListIndex = 0
If cmbOrdernarPor.ListIndex = -1 Then cmbOrdernarPor.ListIndex = 0
If cmbOrdem.ListIndex = -1 Then cmbOrdem.ListIndex = 0

If cmbProcurarPor.ListIndex = 0 Then
   procurarpor = "codigo"
ElseIf cmbProcurarPor.ListIndex = 1 Then
   procurarpor = "Descricao"
ElseIf cmbProcurarPor.ListIndex = 2 Then
   procurarpor = "Unimed"
End If

Select Case cmbOrdernarPor.ListIndex
Case 0
   ordernarpor = "codigo"
Case 1
   ordernarpor = "Descricao"
Case 2
   ordernarpor = "Unimed"
End Select

Select Case cmbOrdem.ListIndex
Case 0
  DASC = "asc"
Case 1
  DASC = "desc"
End Select

If rst.State = 1 Then rs.Close

rst.Open "select * from tblProduto where " & procurarpor & " like '" & txtProcurar & "%' order by " & ordernarpor & " " & DASC, cnnObjetivo

preenche_lista

End Sub


Sabem me informr o porque deste erro?
Desde já agradeço.
LIZANDRO 12/04/2007 09:19:42
#211431
Vc limpa o list antes de carrega-lo novamente ???

Pois se naum limpar ele pode dar esse erro mesmo
USUARIO.EXCLUIDOS 12/04/2007 12:38:29
#211505
Lizandro, obrigado pela ajuda.
limpei a lista antes de filtra-la

ListaProduto.ListItems.clear

Parou a msg de erro mas não acontece nada.

ja vasculhei o código diversas vezes e não consigo ver o erro.

Desde ja lhe agradeço.
Tópico encerrado , respostas não são mais permitidas
Voltar