KEY IS NOT UNIQUE IN COLLECTION
To usando este mesmo procedimento em outras telas e não da erro. Só agora nesta bendita tela é que surgiu o erro conforme titulo. veja como declaro e pq o erro?
[ô]Cria o cabeçalho do controle ListView
ListView1.ColumnHeaders.Add , , [Ô]Lote[Ô], 700
ListView1.ColumnHeaders.Add , , [Ô]Inscrição Anterior [Ô], 2500, lvwColumnLeft
ListView1.ColumnHeaders.Add , , [Ô]Inscrição Nova[Ô], 2500, lvwColumnLeft
ListView1.ColumnHeaders.Add , , [Ô]Nº Cad.[Ô], 1000, lvwColumnLeft
ListView1.ColumnHeaders.Add , , [Ô]Proprietário[Ô], 2500, lvwColumnLeft
ListView1.ColumnHeaders.Add , , [Ô]Contribuinte[Ô], 4000, lvwColumnLeft
ListView1.ColumnHeaders.Add , , [Ô]Tipo Edificação[Ô], 2500, lvwColumnLeft
ListView1.ColumnHeaders.Add , , [Ô]Edificação[Ô], 1200, lvwColumnLeft
ListView1.ColumnHeaders.Add , , [Ô]Ãrea[Ô], 2500, lvwColumnLeft
[ô]Preenche o controle listview com os dados da tabela
Dim i As Integer
For i = 0 To rstClientes.RecordCount - 1
Set itmx = ListView1.ListItems.Add(, rstClientes([Ô]Inscricao_Antiga[Ô]), rstClientes([Ô]Lote[Ô]))
If Not IsNull(rstClientes(0)) Then
itmx.SubItems(1) = [Ô][Ô] & rstClientes([Ô]Inscricao_Antiga[Ô])
itmx.SubItems(2) = [Ô][Ô] & rstClientes([Ô]Inscricao_Nova[Ô])
itmx.SubItems(3) = [Ô][Ô] & rstClientes([Ô]Numero_Cadastro[Ô])
itmx.SubItems(4) = [Ô][Ô] & rstClientes([Ô]NomeProprietario[Ô])
itmx.SubItems(5) = [Ô][Ô] & rstClientes([Ô]Nome[Ô])
itmx.SubItems(6) = [Ô][Ô] & rstClientes([Ô]DescricaoEdificacao[Ô])
itmx.SubItems(7) = [Ô][Ô] & rstClientes([Ô]Descricao_Edificacao[Ô])
itmx.SubItems(8) = [Ô][Ô] & rstClientes([Ô]Area_Lote[Ô])
[ô]Cria o cabeçalho do controle ListView
ListView1.ColumnHeaders.Add , , [Ô]Lote[Ô], 700
ListView1.ColumnHeaders.Add , , [Ô]Inscrição Anterior [Ô], 2500, lvwColumnLeft
ListView1.ColumnHeaders.Add , , [Ô]Inscrição Nova[Ô], 2500, lvwColumnLeft
ListView1.ColumnHeaders.Add , , [Ô]Nº Cad.[Ô], 1000, lvwColumnLeft
ListView1.ColumnHeaders.Add , , [Ô]Proprietário[Ô], 2500, lvwColumnLeft
ListView1.ColumnHeaders.Add , , [Ô]Contribuinte[Ô], 4000, lvwColumnLeft
ListView1.ColumnHeaders.Add , , [Ô]Tipo Edificação[Ô], 2500, lvwColumnLeft
ListView1.ColumnHeaders.Add , , [Ô]Edificação[Ô], 1200, lvwColumnLeft
ListView1.ColumnHeaders.Add , , [Ô]Ãrea[Ô], 2500, lvwColumnLeft
[ô]Preenche o controle listview com os dados da tabela
Dim i As Integer
For i = 0 To rstClientes.RecordCount - 1
Set itmx = ListView1.ListItems.Add(, rstClientes([Ô]Inscricao_Antiga[Ô]), rstClientes([Ô]Lote[Ô]))
If Not IsNull(rstClientes(0)) Then
itmx.SubItems(1) = [Ô][Ô] & rstClientes([Ô]Inscricao_Antiga[Ô])
itmx.SubItems(2) = [Ô][Ô] & rstClientes([Ô]Inscricao_Nova[Ô])
itmx.SubItems(3) = [Ô][Ô] & rstClientes([Ô]Numero_Cadastro[Ô])
itmx.SubItems(4) = [Ô][Ô] & rstClientes([Ô]NomeProprietario[Ô])
itmx.SubItems(5) = [Ô][Ô] & rstClientes([Ô]Nome[Ô])
itmx.SubItems(6) = [Ô][Ô] & rstClientes([Ô]DescricaoEdificacao[Ô])
itmx.SubItems(7) = [Ô][Ô] & rstClientes([Ô]Descricao_Edificacao[Ô])
itmx.SubItems(8) = [Ô][Ô] & rstClientes([Ô]Area_Lote[Ô])
Citação::
Set itmx = ListView1.ListItems.Add(, rstClientes([Ô]Inscricao_Antiga[Ô]), rstClientes([Ô]Lote[Ô]))
o campo de chave nao pode se repetir, e está repetindo...
Set itmx = ListView1.ListItems.Add(, ,cstr(rstClientes([Ô]Inscricao_Antiga[Ô])) & [Ô] - [Ô] & cstr(rstClientes([Ô]Lote[Ô]))
Verifique os campos do BD que estão como CHAVE ou SEM REPETIÇÃO.
Confrme explicado, estes campos não podemreceber valores repetidos.
ok amigo, te agradeço pela atenção, mas depois de uns 10 minutos que havia postado, eu consegui resolver....O problema estava no select, pois eu estava fazendo sem INNER JOIN. Eu estava usando 8 tabelas sem o bendito INNER JOIN.
Mesmo assim te agradeço.
Mesmo assim te agradeço.
Tópico encerrado , respostas não são mais permitidas