Dodefault() SELECT nvl(SUM(hrs),0) FROM linemarkingbody WITH (buffering=.t.) WHERE linemarkingbody.no=linemarkinghead.no AND required; into array laDummy REPLACE totalhrs WITH laDummy IN linemarkinghead thisform.txtNHours.Refresh>I've got a grid of entries, the two important columns are a tick box (required), and a time in hrs (hrs).
>DODEFAULT() >SELECT SUM(hrs) as total FROM linemarkingbody WITH (buffering=.t.) WHERE linemarkingbody.no=linemarkinghead.no AND required INTO CURSOR tmptotal >IF ISNULL(TMPTOTAL.TOTAL) > REPLACE totalhrs WITH 0 IN linemarkinghead >ELSE > REPLACE totalhrs WITH tmptotal.total IN linemarkinghead >ENDIF >thisform.txtNHours.Refresh >