Boa tarde pessoal , eu achei um codigo que faz o seguinte ele soma as linhas de um listview e... coloca o resultado disso numa label é mais ou menos isso.....e gostaria de saber se é facil ........ se é alguem viu , ou tem um llink ou aki mesmo falando algo de de como fazer pra por exemplo tenho um campo Moeda e um Campo numerico, exibidos dentro de um listview , queria que ao colcocar no campo de valor numero um numero tipo 2 , o campo Moeda acrecentasse o Valor dele de novo, tipo

 

tenho o valor 150,00 , se eu colcaor no txt numerico , o numero 2, entao o campo Valor ficasse 300,00, sacaram? eu explico mal pra caraca ne ...... se alguem nao entendeu ams tem boa vontade da um toque, valew de novo  

Somar?

 

Dim soma as Currency

For i=1 to ListView.ListItems.Count

   Soma = ccur(ListView.ListItems(i)) + Soma

Next

 

Label1 = Soma

 

Seria isso q vc quer saber??

ghost camarada blz... eu ano testei ainda vu testar e falar pra vc ...... mas o lance seria que eu gostaria que o valor multiplicado , apartir de um txt que tenho que leva um valor numeico se nao coluna valor tiver 200,00  uma conta de um produto entao eu teria um txt quantidade , se nessa coluna tiver 2 , entao o valor unitario do produto que seria 200,00 pularia pra 400,00 saco? , entao tipo assim.

 

Unidade   Valor     Valor Total

    2        4,00          8,00

 

acho que é complicado essa fita ae , mas se vc tiver um link falando disso aki no site , ou alguem me da uma força ae e me indica pra eu ter uma ideia.....muito obrigado por postar ae ..valew ate mais

 

Ah tá...

Bom digamos q no ListView esteja assim:

 

 

Então, em um botão ou outro evento qq:

 

nao entendi esse linha, oque tem a ver esse = "9,00"

 

ListView.ListItems(ListView.ListItems.Count).SubItems(1) = "9,00"

 

porq pra incluir um registro eu faço mais ou menos assim

 

SQL = "Select * FROM Tbl_Contas Where CodigoH = '" & txtCodigo & "'"
Rs2.Open SQL, Conn1, adOpenKeyset, adLockOptimistic

If Not Rs2.EOF Then
    MsgBox "        Codigo já Existe       ", vbCritical
    Rs2.Close
    txtCodigo.SetFocus
    GoTo 20
End If

Rs2.AddNew

Rs2!CodigoH = UCase(txtCodigo)
Rs2!unidade = UCase(txtunidade)
Rs2!Valor = UCase(txtvalor)
Rs2.Update
Rs2.Close
LlenaListView

 

sendo que" LlenaListView"  é uma Function onde monto o meu listivew

 

Function LlenaListView()

 Set Rs2 = New ADODB.Recordset
 Set Conn1 = New ADODB.Connection
  
    'FAZENDO A CONEXÃO COM O BANCO DE DADOS
    Conn1.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "Lab.MDB;Persist Security Info=False"
  Rs2.Open "Select CodigoH,* FROM Tbl_Contas Order by CodigoH asc", Conn1, adOpenKeyset, adLockOptimistic
  
    'encabeçando a LISVIEW
    LV1.ListItems.Clear
    LV1.ColumnHeaders.Clear
    LV1.ColumnHeaders.Add 1, , "Codigo", 1200
    LV1.ColumnHeaders.Add 2, , "Unidades", 4000
    LV1.ColumnHeaders.Add 3, , "Valor", 2000
    LV1.ColumnHeaders.Add 4, , "Valor Total", 2000
    LV1.ColumnHeaders.Add 5, , "", 1
   
    txtTotal = LV1.ListItems.Count
 
While Not Rs2.EOF

    LV1.ListItems.Add 1, , Rs2!CodigoH
    LV1.ListItems(1).SubItems(1) = IIf(IsNull(Rs2!unidade), "", Rs2!unidade)
    LV1.ListItems(1).SubItems(2) = Format(Rs2("Valor"), "currency")
    LV1.ListItems(1).SubItems(3) = Format(Rs2("ValorTotal"), "currency")
    LV1.ListItems(1).SubItems(4) = Rs2!idH
    txtTotal = LV1.ListItems.Count
   
    Rs2.MoveNext
Wend

Rs2.Close

txtCodigo = ""
txtunidade = ""
txtvalor = ""
txtvaltot = ""
100:
End Function

uai... é o valor do item...

Só fiz um exemplo pra depois multiplicar...

 

4 * 9,00 = 36,00

 

vou jogar 36,00 na coluna 3

 

entendeu?