>thanks Sylvain your helpful reply,
>pls explaine me more with codes
>

>Select 6
> Goto Top
> Do While !Eof()
>     tcode = code
>     Select 7
>     Set Order To refno
>     Set Filter To code=tcode and date<=thisform.adate.value AND month=>thisform.monthfm.value and month=<thisform.monthto.value
>     Sum debit To mdr
>     Sum credit To mcr
>     Select 6
>     Replace dr With dr+mdr
>     Replace cr With cr+mcr
>     Skip
> Enddo
>

Try this:

SELECT select6_name
tcode = CODE
m.monthfm = THISFORM.monthfm.VALUE
m.montht0 = THISFORM.monthto.VALUE
m.adate = THISFORM.adate.VALUE
SELECT SUM(debit), SUM(credit) FROM select7_name  ;
	WHERE CODE=tcode AND DATE<= m.adate AND select7_name.MONTH BETWEEN m.monthfm AND m.monthto ;
	INTO ARRAY arTempArray
UPDATE select6_name ;
	SET dr = dr+ arTempArray[1], ;
	    cr = cr+ arTempArray[2] ;
	WHERE select6_name.CODE = tcode
RELEASE arTempArray