>Opss I did the refresh() not on the grid, but it's not fixed even after I fixed it.
>Here is my new code in the 'mark all':

select crsrgrid
>	replace all crsrgrid.tochange with 1
>ThisForm.grdship.refresh()
>thisform.calcsum()

with ThisForm.grdship
 select (.recordsource)
 replace all tochange with 1
 .refresh()
endwith

Cetin