Cetin, I am not sure you addressed the fact that when the amount field has cents (ie..1300.55 vs 1300.00), the valid event does not appear to fire because it does not sense a keypress or lastkey. I think there is a default of an "end of input" and since it is the last field in the grid it defaults to the first field instead of "arrowdown". Look at my notes: by the way I appreciate you cleaning up my code.
Thanks
>
>Chuck,
>I couldn't see a relation of this code to valid. It always returns .T., right ?
>I wouldn't count and sum all records all the time. It might be really time consuming as reccount increases.
>
>
>*Initialize - ie: in form.init
>local array arrCompute[1]
>set deleted on
>select sum(amt) from myTable into array arrCompute
>

*** is this in the valid ?
>WITH ThisForm
>     .txtEnterTotal.VALUE=iif(_Tally=0,0,arrCompute)
>     .txtTotRecCnt.VALUE=_Tally
>ENDWITH
>
*** since there are no ADD/EDIT buttons
*** how do you know when a record has been added or deleted
*** maybe create a method for the init call and use it in
*** the valid also?
>*Any code adding to table also calls
>WITH ThisForm.txtTotRecCnt
> .VALUE=.Value+1
>ENDWITH
>
>*Any code deleting from table also calls
>WITH ThisForm.txtTotRecCnt
> .VALUE=.Value-1
>ENDWITH

>

please explain why i would use this.tag?
>*TxtAmt.GotFocus
>this.Tag = trans(this.Value)
>
>*TxtAmt.LostFocus
>WITH ThisForm.txtEnterTotal
> .VALUE = .Value + (this.Value - val(this.Tag))
>ENDWITH
>if !mdown() and inlist(lastkey(),13)
> keyboard '{DNARROW}'
>endif

*** I had this set to true
>*Grid.AllowAddNew= .t. would handle adding the new record if at bottom
>

Cetin