CALCULAR UM LISTBOX

USUARIO.EXCLUIDOS 04/12/2006 08:38:50
#187710
gostaria de fazer o calculo do que esta dentro do listbox, alguem poderia me ajudar.mas colocando no final do list mesmo, nao em um text por exemplo
USUARIO.EXCLUIDOS 04/12/2006 08:43:30
#187712
ham????

Calculo do que esta dentro do ListBox??

Sorry amigo... não entendi...
Quais as informações que vc terá dentro do ListBox? que tipo de calculo deseja fazer? somar tudo e exibir um total é isso??
USUARIO.EXCLUIDOS 04/12/2006 08:52:34
#187715
isso amigo, eu coloquei alguns numeros dentro de um listbox, agora gostaria de saber como sommar esses campos.

ex:

35
22
44
36
45
_______
322
USUARIO.EXCLUIDOS 04/12/2006 08:54:09
#187717
Tenta isso aqui
Private Sub Command1_Click()
Dim i As Long
Dim lCnt As Long
For i = 0 To List1.listCount - 1
    lCnt = lCnt + List1.List(i)
Next i
    List1.AddItem "---Resultado---"
    List1.AddItem lCnt
End Sub

Segue anexo um exemplo que montei.
3LTON 04/12/2006 08:54:53
#187718
Se vc quiser apenas somar, vc deve fazer um loop calculando todos os itens.

For cont =0 to lst.listcount
soma = soma+lst.list(cont)
next


lst.additem soma
USUARIO.EXCLUIDOS 04/12/2006 09:02:24
#187722
amigo valeu mesmo pela ajuda em, muto obrigado mesmo.

agora sem querer aproveitar, sera que voce poderia me dar uma maozinha, preciso trazer informaçoes de um banco dedados mdb, para o listbox, ex: o campo total, mas esse campo tem que ser relativo a data que eu especificar em um text, sera que voce poderia me ajudar.
USUARIO.EXCLUIDOS 04/12/2006 16:57:56
#187913
Citação:

PAULO2309 escreveu:
amigo valeu mesmo pela ajuda em, muto obrigado mesmo.

agora sem querer aproveitar, sera que voce poderia me dar uma maozinha, preciso trazer informaçoes de um banco dedados mdb, para o listbox, ex: o campo total, mas esse campo tem que ser relativo a data que eu especificar em um text, sera que voce poderia me ajudar.



Colega, vai depender da forma como acessa seu BD, se for ADO por exemplo:

Dim i As Integer
Dim Soma As Double
Dim SQL As String
'rst seria seu recordset (Dim rst As ADODB.Recordset)
SQL = "SELECT TOTAL FROM VENDAS WHERE DATA = #" & Format(txtData, "MM/DD/YYYY") & "#"
rst.Open SQL
'Se for DAO use:
'Set rst = Cn.OpenRecordset(SQL)
Do While Not rst.EOF
  List1.AddItem rst(0)
  Soma = Soma + rst(0)
Loop
List1.Additem "==Total:===="
List1.AddItem Soma


Qualquer dúvida poste...flw
Tópico encerrado , respostas não são mais permitidas
Voltar