SOMAR
Pessoal tenho uma dúvida....
Como faço pra fazer uma soma da seguinte forma:
Tenho várias contas, ou seja, 0010, 0020, 0030.
Preciso criar uma rotina para que o sistema some todos os valores contidos na conta 0010-0020-0030
já que eu tenho vários lançamentos nestas contas e preciso ter o resultado sintético.
Em delphi tenho noção, mas em vb.net só tenho pagado pau....
Como faço pra fazer uma soma da seguinte forma:
Tenho várias contas, ou seja, 0010, 0020, 0030.
Preciso criar uma rotina para que o sistema some todos os valores contidos na conta 0010-0020-0030
já que eu tenho vários lançamentos nestas contas e preciso ter o resultado sintético.
Em delphi tenho noção, mas em vb.net só tenho pagado pau....
Public Function GetValores(conta As String) As Array
Return conta.Split([Ô]-[Ô])
End Function
Public Function Somar(ByVal dados As Array)
Dim x As Decimal
For i As Integer = 0 To dados.Length - 1
x = x + dados(i)
Next
Return x
End Function
MsgBox(Somar(GetValores([Ô]0010-0020-0030[Ô])))
Resultado: 60
Return conta.Split([Ô]-[Ô])
End Function
Public Function Somar(ByVal dados As Array)
Dim x As Decimal
For i As Integer = 0 To dados.Length - 1
x = x + dados(i)
Next
Return x
End Function
MsgBox(Somar(GetValores([Ô]0010-0020-0030[Ô])))
Resultado: 60
Você tem que mostra como é sua tabela, ai o pessoal
vai verificar e postar com faz a soma.
[txt-color=#0000f0]Preciso criar uma rotina para que o sistema some todos os valores contidos na conta 0010-0020-0030[/txt-color]
Para mim.Não entendi nada.
Muito vago.
vai verificar e postar com faz a soma.
[txt-color=#0000f0]Preciso criar uma rotina para que o sistema some todos os valores contidos na conta 0010-0020-0030[/txt-color]
Para mim.Não entendi nada.
Muito vago.
Nossa que vaciloooooooo!!!!
é assim.....
Tabela em acess 2010 - Nome: CPCreditos
Campo: CP220 = Conta contabil
Campo: CP367 = Valor lançado
Acho que não fui claro, preciso fazer um relatório sintético, ex: ele vai lendo e somando os valores contidos nas contas.
é assim.....
Tabela em acess 2010 - Nome: CPCreditos
Campo: CP220 = Conta contabil
Campo: CP367 = Valor lançado
Acho que não fui claro, preciso fazer um relatório sintético, ex: ele vai lendo e somando os valores contidos nas contas.
Agrupar por conta.
Tb.Open [Ô]Select CP220,sum(CP367) as Soma From CPCREDITOS Group By CP220[Ô]
Soma e agrupar por conta
Tb.Open [Ô]Select sum(CP367) as Soma From CPCREDITOS [Ô]
Soma tudo.
Acho que é assim.
Tb.Open [Ô]Select CP220,sum(CP367) as Soma From CPCREDITOS Group By CP220[Ô]
Soma e agrupar por conta
Tb.Open [Ô]Select sum(CP367) as Soma From CPCREDITOS [Ô]
Soma tudo.
Acho que é assim.
Soma seria uma variável ?
OMAR... Olha só fiz o seguinte código:
PContabil.Open()
Dim adptr As New OleDbDataAdapter([Ô]Select CP220,sum(CP367) as Soma From CPCREDITOS Group By CP220[Ô], PContabil)
Ele roda....
Mas como faço para jogar isso em uma variável para aparecer na impressão ?, ou seja no final da página da seguinte forma:
Resumo geral das contas:
000.001.001 - C'reditos - R$ 1.000,00
000.002.001 - Débitos - R$ 5.000,00
000.003.001 - Taxas banco - R$ 200,00
PContabil.Open()
Dim adptr As New OleDbDataAdapter([Ô]Select CP220,sum(CP367) as Soma From CPCREDITOS Group By CP220[Ô], PContabil)
Ele roda....
Mas como faço para jogar isso em uma variável para aparecer na impressão ?, ou seja no final da página da seguinte forma:
Resumo geral das contas:
000.001.001 - C'reditos - R$ 1.000,00
000.002.001 - Débitos - R$ 5.000,00
000.003.001 - Taxas banco - R$ 200,00
Tópico encerrado , respostas não são mais permitidas