>thanks for coding. cetin
>
>it works, but how to get rid of the deleted record that haven't pack yet and how to bold the caption ?

Really I thought this beforehand but couldn't think of a situation I would I want to keep headers in a table and delete some. Anyway here is modification (at least 3 ways as always - this is just one of them) :

tnPage = 1 && ie:Parameter
lcAlias = alias()
select description from category ;
 where !deleted() ;
 into cursor tmpCursor
with thisform.pageframe1
 .pagecount = reccount()
 scan
   .pages(recno()).caption = tmpCursor.description
 endscan
 .pages(tnPage).fontbold = .t.
endwith
use in "tmpCursor"
if !empty(lcAlias)
 select (lcAlias)
endif

Cetin