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