hi,

thank you,still,
BTW . what the defferent between this command and grid1.column1.text1(propertise read only=.t.)

>LPARAMETERS nColIndex
>
>this.ReadOnly = UPPER(ALLTRIM(EVAL(thisform.Grid1.RecordSource+".Nam1"))) == 'PRIVATE'
>
>THISFORM.TEXT3.VALUE=NAM1
> THISFORM.TEXT5.VALUE=TYPE1
> THISFORM.TEXT6.VALUE=INNOUMBER
> THISFORM.TEXT7.VALUE=PRICE
> THISFORM.TEXT8.VALUE=TOTAL
> THISFORM.TEXT9.VALUE=SALE
> thisform.text17.value=w1
> thisform.text18.value=w2
> *thisform.grid1.refresh

thanks.