>=AMEMBER(laMember,ThisForm,2) >FOR lnCompteur=1 TO ALEN(laMember,1) > IF UPPER(EVALUATE('ThisForm.'+ALLTRIM(laMember[lnCompteur])+'.BaseClass'))='PAGEFRAME' > FOR lnCompteu2=1 TO EVALUATE('ThisForm.'+ALLTRIM(laMember[lnCompteur])+'.PageCount') > > * We refresh each page of the pageframe > =EVAL('ThisForm.'+ALLTRIM(laMember[lnCompteur])+'.Page'+ALLTRIM(STR(lnCompteu2))+'.Refresh()') > > NEXT > ENDIF >NEXT >>
for each oControl in thisform.Controls if upper(oControl.BaseClass) = 'PAGEFRAME' for each oPage in oControl.Pages oPage.Refresh() endfor endif endforCetin