Olá,

Não entendi bem a sua pergunta portanto vou dar as dus opções :

a) Somando duas colunas :

No "AfterRolCowChange" da sua grade, coloque um código do tipo:

> Thisform.Text1.Value = ThisForm.Grade.Column1.Text1.Value + ThisForm.Grade.Column1.Text2.Value
> ThisForm.Text1.Refresh

Onde : "ThisForm.Text1" é o campo que vai apresentar o resultado da soma,
"ThisForm.Grade.Column1.Text1.Value" o primeiro valor a ser somado e "ThisForm.Grade.Column1.Text2.Value" o segundo.

b) Somando Uma Coluna Inteira :

No "AfterRolCowChange" da sua grade, coloque um código do tipo:

> Select Sum(Valores) as Total From Tabela Into Cursor csSoma
> Go Top In csSoma
> Thisform.Text1.Value = csSoma.Total
> ThisForm.Text1.Refresh

Onde : "ThisForm.Text1" é o campo que vai apresentar o resultado da soma,
e no Select "Tabela.Valores" é o "ControlSource" da Coluna a Ser Somada.

Existem outras opções, mas creio que uma das duas possam resolver seu problema a contento.

Um abraço,

Richard diegues
richarddiegues@ig.com.br