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.refreshthanks