Listview - Acho Que Ta Doida

[Guest - Dargo -]

Na apl. que estou desenvolvendo estou colocando uma listview com alguns

dados para rápida verificação dos dados, que seriam Empresa, Contato,

Telefone, E-mail, fiz (acredito) que tudo certinho, pois fuçei em tudo que

é ex. e tutorial que encontrei, só que na primeira coluna "Empresa", onde

deveria aparecer apenas o nome da Empresa, aparecem todos os dados

"Empresa, Contato, Telefone e E-Mail", não to conseguindo entender, segue

abaixo o código e please onde é que to errando.

Private Sub form_load()

Dim sql As String

Set BD = OpenDatabase("\Arquivos de programas\CadCom\Banco\Cadastro.mdb")

sql = "Select Empresa,Contato,Telefone,Email from Cadastro order by Empresa"

Set REG = BD.OpenRecordset(sql)

Dim itmx As ListItem

Dim colx As ColumnHeader 'Inclui algumas colunas

Set colx = Lista.ColumnHeaders.Add(, , "Empresa")

Set colx = Lista.ColumnHeaders.Add(, , "Contato")

Set colx = Lista.ColumnHeaders.Add(, , "Telefone")

Set colx = Lista.ColumnHeaders.Add(, , "E-Mail") 'Inclui um item

While Not REG.EOF

Set itmx = Lista.ListItems.Add(, , REG.Fields("Empresa"))

itmx.SubItems(1) = Lista.ListItems.Add(, , REG.Fields("Contato"))

itmx.SubItems(2) = Lista.ListItems.Add(, , REG.Fields("Telefone"))

itmx.SubItems(3) = Lista.ListItems.Add(, , REG.Fields("Email"))

REG.MoveNext

Wend

End Sub

Abraços

Dargo.

[William Rodrigues]

Brother !!!

Pelo que me parece está tudo certinho cara....

Não errou nada...

Mas como tá dando erro...

No lugar de:

While Not REG.EOF

Set itmx = Lista.ListItems.Add(, , REG.Fields("Empresa"))
itmx.SubItems(1) = Lista.ListItems.Add(, , REG.Fields("Contato"))
itmx.SubItems(2) = Lista.ListItems.Add(, , REG.Fields("Telefone"))
itmx.SubItems(3) = Lista.ListItems.Add(, , REG.Fields("Email"))
REG.MoveNext
Wend

Coloca isso:

Do While Not REG.EOF

Set itmx = Lista.ListItems.Add(, , REG.Fields("Empresa"))
itmx.SubItems(1) = Lista.ListItems.Add(, , REG.Fields("Contato"))
itmx.SubItems(2) = Lista.ListItems.Add(, , REG.Fields("Telefone"))
itmx.SubItems(3) = Lista.ListItems.Add(, , REG.Fields("Email"))
REG.MoveNext
Loop

Vamos ver no que dá

Abraços,

William Rodrigues

[Guest - Dargo -]

-- Nadica de nada... continuou na mesma, isso é coisa do além só pode,

se eu faço sem ser do BD ou seja um additems= "qualquer coisa"

vai que uma beleza....agora "puxou" do BD, dá esse Xabum, e só neste campo(coluna) já ate mudei pra outro campo do BD e não adianta vem todos os

outros itens.

Sei la o que fazer.

[William Rodrigues]

Brother !!!

então coloca assim:

Do While Not REG.EOF

Set itmx = Lista.ListItems.Add(, , REG!Empresa)
itmx.SubItems(1) = Lista.ListItems.Add(, , REG.Fields("Contato"))
itmx.SubItems(2) = Lista.ListItems.Add(, , REG.Fields("Telefone"))
itmx.SubItems(3) = Lista.ListItems.Add(, , REG.Fields("Email"))
REG.MoveNext
Loop

Tenta aí

Abraços,

William Rodrigues

[Guest - Dargo -]

--- OLha valeu pela ajuda ai povo, mas depois de muita luta descobri o erro.:

Ai vai a maneira correta:

Private Sub Form_Load()

Dim sql As String

Set BD = OpenDatabase("\Arquivos de programas\CadCom\Banco\Cadastro.mdb")

sql = "Select Empresa,Contato,Telefone,Email from Cadastro order by Empresa"

Set REG = BD.OpenRecordset(sql)

Dim itmx As ListItem

Dim colx As ColumnHeader 'Inclui algumas colunas

Set colx = Lista.ColumnHeaders.Add(, , "Empresa")

Set colx = Lista.ColumnHeaders.Add(, , "Contato")

Set colx = Lista.ColumnHeaders.Add(, , "Telefone")

Set colx = Lista.ColumnHeaders.Add(, , "E-Mail") 'Inclui um item

Do While Not REG.EOF

Set itmx = Lista.ListItems.Add(, , REG.Fields("Empresa"))

itmx.SubItems(1) = REG.Fields("Contato")

itmx.SubItems(2) = REG.Fields("Telefone")

itmx.SubItems(3) = REG.Fields("Email")

REG.MoveNext

Loop

Lista.View = lvwReport

End Sub

Valeu pela ajuda povo...

[William Rodrigues]

Brother !!!

Que bom que conseguiu resolver esse problema cara....

E que de certa maneira pude te ajudar a conseguir isso

Se encontramos em outra dúvida então

Abraços,

William Rodrigues