Comment the last line (thisform.Grid1.Refresh) & see what happens
>hi,
>thank you for reply,
>
>i try but still,
>this my code under
>
>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
Against Stupidity the Gods themselves Contend in Vain - Johann Christoph Friedrich von Schiller
The only thing normal about database guys is their tables.
