Eduardo
não registrado
|
|
ENUNCIADA !
|
|
|
Postada em 04/09/2008 15:07 hs
olá. Estou com um probelmão. estou aprendendo VB6, e npo desenvolvimento de um sisteminha d contas a pagar encalhei.
veja só:
tenho um form com um controle Datagrid onde tenho uma coluna "valor" q kero somar. os dados são obtidos através de um Adodc.
quero somar a coluna Valor e mostrar numa textBox, e que ela se atualize toda vez q um novo valor for inserido. Já tentei várias formulas e nada! nem com reza braba e macumba o breguete funciona.
Me ajude Please!
Obrigado
|
|
|
|
|
|
|
|
Postada em 05/09/2008 07:56 hs
'fiz um exemplo, quando vc clica no botao ele soma o grid ok Private Sub Command2_Click()
Dim dSoma As Double
dSoma = 0
For i = 0 To Me.DataGrid1.VisibleRows - 1
DataGrid1.Row = i
dSoma = dSoma + CDbl(Me.DataGrid1.Columns(0))
Next i
MsgBox "Total: " & dSoma
End Sub |
|
|
|
Wilson
não registrado
|
|
|
ENUNCIADA !
|
|
|
Postada em 17/09/2009 01:04 hs
Muito pratico e rapido.
parabéns
obrigado.
|
|
|
|
Alessandro
não registrado
|
|
|
ENUNCIADA !
|
|
|
Postada em 10/10/2009 21:23 hs
Pois bem, amigo. A solução proposta acima é rápida e simples, tendo como único incovenite a movimentação do ponteiro de registros do grid juntamente com o loop. Para contornar isso, vc pode criar um novo objeto RecordSet idêntico ao do objeto adodc usando o método "clone" do RecordSet. A partir daí é só implementar o loop com o novo record set.
Na minha opinião há uma solução mais simples. Consiste em adicionar um outro objeto adodc ao form e a ele atribuir o seguinte comando SQL:
"Select Sum(Nome_do_Campo) Soma From Nome_da_Tabela"
Pronto, agora vc só precisa fazer vincular a caixa de texto a esse novo adodc.
Dou preferência a essa solução pois sua implementação não requerer a adição de uma só linha de código. 
Precisando, pode me passar um email.
Um grande abraço e bom desenvolvimento!
Alessandro
|
|
|
|
Pedro
não registrado
|
|
|
ENUNCIADA !
|
|
|
Postada em 19/08/2010 23:33 hs
Alexandre parabens pelo codigo funciona muito bem
|
|
|
|
Sousa Manuel
não registrado
|
|
|
ENUNCIADA !
|
|
|
Postada em 20/11/2010 05:22 hs
Obrigado Amigos
Eu também estava a precisar disto
Dim dSoma As Double
dSoma = 0
For i = 0 To Me.DataGrid1.VisibleRows - 1
DataGrid1.Row = i
dSoma = dSoma + CDbl(Me.DataGrid1.Columns(0))
Next i
MsgBox "Total: " & dSoma
Só tem um pequeno problema, só soma as linhas visíveis do Columns(0))
Pergunta
Como somar a mesma columns sem restrições
Ps . sou leigo em programação VB6
|
|
|
|
