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