Glad to be of help and luckily it worked written out of my head.

>hi,
>thank you for reply, help
>i try as under,it works
>

>thisform.grid1.height = thisform.grid1.HeaderHeight + ;
>thisform.grid1.RowHeight*reccount('table2')+ ;
>iif(inlist(thisform.grid1.GridLines,1,3),thisform.grid1.GridLineWidth * reccount('table2'),0)
>iif(inlist(thisform.grid1.scrollbars,1,3),sysmetric(7),0)
>

>
>thanks.
>best regards
>
>>>SET FILTER TO NOT EMPTY(Name)
>>>LOCATE
>>>
>>The problem was to automatically size the grid height to the maximum number of records in the table. Something like this:
>>

>>this.height = this.HeaderHeight + ;
>>RowHeight*reccount(MyTable)+ ;
>>iif(inlist(this.GridLines,1,3),this.GridLineWidth * reccount(myTable),0) + ;
>>iif(inlist(this.scrollbar,1,3),sysmetric(7),0)