caramba cara eu entendi tudo cara mas se eu mudo o item aki entao ele nao incluiu da index out of bounds , se eu tiro o clear ele nao inclui nada..... isso tudo ae ate que funfa , mas eu fiz do jeitos ams ou da erro ou nao funciona  , mas eu vou ver aki......ae ghost valew ate agora

Brother sem jeito, eu fiz as modificaçoes , nos itens tudo mas esta sumindo o valor do Item Valor Total..

Eita... vamos lá do início:

 

 

Private Sub Command1_Click()

 

Dim Unidade as Currency

Dim Valor as Currency

 

    ListView3.View = lvwReport

    ListView3.ListItems.Clear

    ListView3.ColumnHeaders.Clear
   
    ListView3.ColumnHeaders.Add
    ListView3.ColumnHeaders(1).Text = "Descrição"

    ListView3.ColumnHeaders.Add
    ListView3.ColumnHeaders(2).Text = "Unidade"
    ListView3.ColumnHeaders.Add
    ListView3.ColumnHeaders(3).Text =  "Valor"

    ListView3.ColumnHeaders.Add
    ListView3.ColumnHeaders(4).Text = "Valor Total"

 

 

ListView3.ListItems.Add , , "item1"

ListView3.ListItems(ListView3.ListItems.Count).SubItems(1) = "2"

ListView3.ListItems(ListView3.ListItems.Count).SubItems(2) = "9,00"

 

Unidade = ccur(ListView3.ListItems(ListView3.ListItems.Count).SubItems(1))

Valor = ccur(ListView3.ListItems(ListView3.ListItems.Count).SubItems(2))

 

ListView3.ListItems(ListView3.ListItems.Count).SubItems(3) = format(Unidade * Valor,"#0.00")

 

'**************************************************
ListView3.ListItems.Add , , "item2"
ListView3.ListItems(ListView3.ListItems.Count).SubItems(1) = "6"

 

ListView3.ListItems.Add , , "item3"

ListView3.ListItems(ListView3.ListItems.Count).SubItems(1) = "4"

ListView3.ListItems(ListView3.ListItems.Count).SubItems(2) = "12,00"

 

'FIM DA INSERÇÃO DE ITENS
End Sub

Será q esclareceu pra vc?

 

Qq dúvida postae

 

t+

eu ainda nao vi direito ams se isso nao esclarer ......... chuta que é macumba.....vouler

 

olha só ghost eu fiz exatamente isso, so toquei algumas ordem() mas esse codigo nao funcionou nao

Num troca naaaum... :P

 

Ow... Cria um ListView com esse nome e só coloca o código q coloquei ai em um botão...

 

veja se funciona...

 

t+