USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Somar coluna do DataGrid
ATS
OURINHOS
SP - BRASIL
Postada em 12/01/2005 10:38 hs            
Tenho este codigo para somar uma coluna com valores monetários de um DataGrid:
 
Dim strTotal As String, i As Long
gridEstoque.Col = 4
For i = 0 To gridEstoque.ApproxCount - 1
   gridEstoque.Row = i
   strTotal = strTotal + gridEstoque
Next i
lblValorTotal.Caption = Format$(strTotal, "R$ #,##0.00")
O código soma os dados digitados na coluna e apresenta em uma label no form, só que em vez de somar os dados da coluna tipo:
 
 R$ 10,00 + R$ 10,00 = R$ 20,00
 
e colocar o valor R$ 20,00 na label o codigo esta colocando assim:
 
R$ 10,00R$10,00
 
ou seja não esta somando e sim juntado os valores e colocando na label. 
     
Natarelli
não registrado
Postada em 12/01/2005 16:24 hs   
Provavelmente a coluna é do tipo STRING
logo o sinal (+) está concatenando duas STRINGS.
 
Para vc efetuar a soma converta a coluna para numérico.
 
Abs,
     
Natarelli
não registrado
Postada em 12/01/2005 16:25 hs   
Complementando:
Seu totalizador é uma STRING
Dim strTotal As String
     
Sérgio Jr.
SÃO PAULO
SP - BRASIL
Postada em 12/01/2005 19:27 hs            
Tente assim :
 
Dim strTotal As Integer, i As Long
gridEstoque.Col = 4
For i = 0 To gridEstoque.ApproxCount - 1
   gridEstoque.Row = i
   strTotal = strTotal + gridEstoque
Next i
lblValorTotal.Caption = Format$(strTotal, "R$ #,##0.00")
 
 
Ou
 
 
Dim strTotal As String, i As Long
strTotal = 0
gridEstoque.Col = 4
For i = 0 To gridEstoque.ApproxCount - 1
   gridEstoque.Row = i
   strTotal = Int(strTotal) + gridEstoque
Next i
lblValorTotal.Caption = Format$(strTotal, "R$ #,##0.00")
 
 
...Tentei....

Sérgio Júnior
Analista de sistemas e Instrutor de informática
 
EMAIL e MSN   sj@softweb.com.br
ICQ                339982437
 
...O cavalo se prepara para a batalha...    
...mas do Senhor Jesus vem a vitória...
 
     
ATS
OURINHOS
SP - BRASIL
Postada em 13/01/2005 07:48 hs            
Este codigo que o Sérgio Júnior passou funcionou em parte:
 
Dim strTotal As Integer, i As Long
gridEstoque.Col = 4
For i = 0 To gridEstoque.ApproxCount - 1
   gridEstoque.Row = i
   strTotal = strTotal + gridEstoque
Next i
lblValorTotal.Caption = Format$(strTotal, "R$ #,##0.00")
 
O que acontece é que não soma corretamente números com casas decimais tipo:
 
10,00 + 10,00 = 20,00
 
Só que se coloco:
 
10,50 + 10,50 = 20,00 sendo que o correto é: 21,00
 
Acho que o problema deve estar no formatação da coluna como o Natarelli disse, como faço para formata-la como moeda pois ja entrei na propriedades do grid na aba Format configurei como Moeda depois como Numero mas não obtive nenhum efeito tem jeito de fazer isso via codigo por que o grid está configurado via codigo acredito que tenha que fazer isso por codigo tambem.
TÓPICO EDITADO
   
ATS
OURINHOS
SP - BRASIL
Postada em 13/01/2005 08:52 hs            
Com a ajuda dos amigos consegui resolver:
 
Dim strTotal As Currency, i As Long
If gridEstoque.Columns(4).Text <> "" Then
   gridEstoque.Col = 4
   For i = 0 To gridEstoque.ApproxCount - 1
      gridEstoque.Row = i
      strTotal = strTotal + gridEstoque
   Next i
   lblValorTotal.Caption = Format$(strTotal, "R$ ##,##0.00")
End If
 
No caso acima eu somo a coluna nr. 4 do grid e exibo o resultado em uma label, só que neste grid eu digito a Quantidade o Valor unitário do produto e o Valor Total tem como depois que eu digitar a quantidade e o valor unitario o grid mostrar o valor total automaticamente na coluna valor total do grid.
     
Página(s): 1/2      PRÓXIMA »


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

[:)] = 
[:P] = 
[:(] = 
[;)] = 

HTML DESLIGADO

     
 VOLTAR

  



CyberWEB Network Ltda.    © Copyright 2000-2025   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página