ERRO NO CODIGO - PREENCHER LISTVIEW

USUARIO.EXCLUIDOS 09/08/2007 08:32:04
#230122

Olá pessoal..

Alguém pode me dizer o q acontece de errado neste código que além de n mostrar os outros dados da tabela (nome, data, valor), mostra somente o código e na mesma linha..o que na verdade deveria ser um código em cada linha

Valew a ajuda

Dim Cabeça As ColumnHeader
Dim Item As ListItem

SqlTabela = "Select * From Tabela Order By Código" 'Tabela contem 3 registros
Conecta 'Conexão e tabela OK..

With View

Set Cabeça = .ColumnHeaders.Add(, , "Codigo")
Set Cabeça = .ColumnHeaders.Add(, , "Nome")
Set Cabeça = .ColumnHeaders.Add(, , "Data Cadastro", , vbCenter)
Set Cabeça = .ColumnHeaders.Add(, , "Valor")

.ColumnHeaders(1).Width = 200
.ColumnHeaders(2).Width = 500
.ColumnHeaders(3).Width = 2000
.ColumnHeaders(4).Width = 800

.Checkboxes = True

End With

View.ListItems.Clear
View.Refresh

For X = 1 To Tabela.RecordCount
Set Item = View.ListItems.Add(, , Tabela!Código)
Item.SubItems(1) = Tabela!Nome
Item.SubItems(2) = Tabela!DataCad
Item.SubItems(3) = Format(Tabela!Valor, "Currency")
Tabela.MoveNext
Next X

View.Refresh
USUARIO.EXCLUIDOS 09/08/2007 08:41:47
#230124 Resposta escolhida
kra vc mudo o estilo do list

muda a propriedade view para 3-lvwreport

eu axo q é isso

falo fera
USUARIO.EXCLUIDOS 09/08/2007 08:49:11
#230127


Ae MILTON...

Deu certo...só q tipo eu n tinha mudado nada...é padrao do vb vir do jeito q tava?

de qualquer forma..muito grato..

Té mais fera!
USUARIO.EXCLUIDOS 09/08/2007 08:57:43
#230132
isso mesmo ele vem com aquele padrão q é tipo a lista dos meus documentos(na onde exibe as pastas)
Tópico encerrado , respostas não são mais permitidas
Voltar