Pessoal esta eu não sei nem como começar.

 

Como eu faço para somar uma coluna em uma dbgrid ?

 

Obrigado

 

Cristian

Para somar os valores de uma coluna em um DBgrid, utilize o código abaixo que percorrerá e somará todos os registros de uma determinada coluna.

   Dim rs As Recordset
   Dim Soma As Single
  
   Set rs = Data1.Recordset.Clone    ´cria um clone do recordset do controle DATA
  
   Do Until rs.EOF
      Soma = Soma + Val(rs("Campo"))
      rs.MoveNext
   Loop
 
   Text1 = Format(Soma, "R$ 0.00")