Fórum SOMA DA COLUNA NO DBGRID #601593

Bom dia

Alguem sabe outra forma de somar a coluna do dbgrid, sem loop na tabela, eu nao queria que ele varresse todo o grid ou seja preciso alterar o valor dentro do grid e quando der enter ele somar num edit a coluna sem sair da linha alterada


estou fazendo assim, ate soma mas ele varre todo o grid e nao queria isso

var
E1,E2 : TDate;
Valor : Real;
Valor2 : Real;
begin
Valor2 := 0;

zqry3.First;
While not zqry3.Eof Do
Begin
Valor2 := Valor2 + zqry3.FieldByName(''valorcredito'').AsFloat;

zqry3.Next;
edt4.Text := FormatFloat(''R$ #,##0.00'',Valor2);