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)