TRAZER DADOS CORRESPONDENTES AO CABECALHO DO LISTV

USUARIO.EXCLUIDOS 28/02/2005 16:31:49
#70380

galera criei um listview que traz os dados do banco.

existem três cabeçalhos.

cod. nome desc

ele só está trazendo os codigos.

fiz esse carregamento do listview

Private Sub preenche_lista()
On Error Resume Next
Tabela.Close
On erro GoTo Trataerro
Tabela.Open "SELECT * FROM itens_pedido2", Conexao

lstMostra.ListItems.Clear
listview_cabecalho

Do While Not Tabela.EOF
Set Lista = lstMostra.ListItems.Add(, , Tabela!codigo_produto)
Lista.SubItems(1) = "" & Tabela!desconto
Lista.SubItems(2) = "" & Tabela!qtde
Lista.SubItems(3) = "" & Tabela!VALOR
Lista.SubItems(4) = "" & Tabela!valor_bruto_i
Lista.SubItems(5) = "" & Tabela!valor_desconto_total_i
Lista.SubItems(6) = "" & Tabela!valor_liquido_i
Tabela.MoveNext
Loop
Exit Sub
Trataerro:
MsgBox Err.Description, vbCritical, "Erro no sistema"
End Sub

e fiz essa função pra fazer o cabeçalho:

Private Sub listview_cabecalho()
lstMostra.ColumnHeaders. _
Add , , "Código Produto.", lstMostra.Width / 18
lstMostra.ColumnHeaders. _
Add , , "Desconto", lstMostra.Width / 5
lstMostra.ColumnHeaders. _
Add , , "Quantidade", lstMostra.Width / 4
lstMostra.ColumnHeaders. _
Add , , "Valor", lstMostra.Width / 6
lstMostra.ColumnHeaders. _
Add , , "Valor Bruto", lstMostra.Width / 6
lstMostra.ColumnHeaders. _
Add , , "Desconto Total", lstMostra.Width / 8
lstMostra.ColumnHeaders. _
Add , , "Valor Liquido", lstMostra.Width / 8

'Define a forma de exibição do controle listview para relatorio
lstMostra.View = lvwReport
End Sub


porque ele só traz os códigos?