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