[Resolvido] Fazendo a soma de uma coluna do grid

[Peterson. 0]

Bom é o seguinte, estou tentando fazer a soma de uma coluna que só tem valor numérico tipo moeda, mais não consigo fazer essa soma dessa coluna inteira como que eu faço isso????? :blink: :blink: :blink:

Obrigadoooooooooooooooooo!!!!!

[scorpio 7]

Você ta com um objeto Data ?

 

For i = 0 To Data1.Recordset.RecordCount - 1
  soma = soma + Data1.Recordset(2).Value
  Data1.Recordset.MoveNext
Next

Data1.Recordset(<o numero da coluna>).Value

 

Tenta fazer assim, se funcionar, se não funcionar ou se não for isso volta aqui e avisa.

 

Flw

[Peterson. 0]

não deu certo até então eu coloquei o código mas não deu certo no i=0 ...

se você estiver aí ainda me da uma ajudinha!! eu colocquei o cód assim:

 

For i = 0 To Grid.Recordset.RecordCount - 1

Soma = Soma + Grid.Recordset(2).Value

Grid.Recordset.MoveNext

Next

Grid.Recordset(2).Value

[scorpio 7]

Você não tem um objeto Data ligado ao seu grid ?

Esse código ai você faz com o Data e não com o Grid.

 

Data1.Recordset(<o numero da coluna>).Value

 

Entendeu ? Vou dar uma olhada aqui para ver se da pra fazer com o Grid, se eu achar alguma coisa eu te falo.

Flw

[Macêdo 0]

Qual grid? DataGrid ? MshFlexGrid ? como você está preenchendo esse Grid ? usa controles ADODC, DATA ou é por código mesmo ? ADO ? DAO? Uma saida seria no select que preenche o recordset

 

"Select sum(valor) as total from tabela 'aqui retorna o somatorio do campo "valor"  com o Field de nome total

[crauller 0]

A melhor saída seria você realizar a soma na instrucao sql como postado pelo amigo acima....

Mas tb pode ser feito da seguinte forma se você estiver usando o datagridview...

Private Sub Soma()

Dim I As Integer

Dim Soma As Double

 

soma=0

 

for i= to g1.Rows then

G1.Row = I

G1.Col = "numero da coluna desejada"

 

if not g1.text=empty then

soma = Soma + cdbl(G1.text)

end if

Next I

txtsoma.text=format(soma,"##,###,###.0.00")"Se for um uma soma do tipo moeda formate o campo"

end sub

 

[]'s

Crauller

[Peterson. 0]

Aeeeeeeeee deu certo !!!