>nLastheight=0 >this.HeaderCnt=1 >set safety off > index on allt(str(vpos))+allt(str(hpos)) to c:\temp\bb >set safety on > >for x=0 to 3 > Go top > Locate for objtype=9 and objcode=x > if found() > totalheight=height+nlastheight > Set filter to between(vpos,nlastheight,totalheight) and inlist(objtype,5,8) > brow && Works Here<---------------------- > nlastheight=totalheight > Go top > replace EXPR with "'<H"+ALLT(STR(this.HeaderCnt))+; > ">+'"+expr > Go Bott > Replace EXPR with Expr+"'+</H"+allt(str(this.headercnt))+">'" > this.headercnt=this.headercnt+1 > Brow && Doesnt Work Here<-------------------- > Set filter to > Endif >EndFor > >Return