hi,
thank you ,
but i try as under but i get error messag

LPARAMETERS nColIndex

DO prg1&&  include use table1 IN 0,use divi IN 0,use temp IN 0
*******************
lcType = ALLTRIM(UPPER(THISFORM.GRID2.column1.text1.VALUE))&& unknown member column1
*lcType = mac1.nam &&alias 'mac1' is not found
USE temp  IN 0
LOCATE FOR TYP = lcType 
IF !FOUND()
     APPEN BLANK
     REPLACE TYP WITH lcType in TEMP
     GO top
     thisform.grid1.refresh
ELSE
       =MESSAGEBOX("found.....")
endif

thanks
>M
>
>Assuming the table (MyTable) in your source grid is current, i.e. the selected table, then you can say:
>
>

>LPARAMETERS nColIndex
>
>lcType = MyTable.TypeField
>Select Temp  && you're STILL using specific work areas - such as Select 3, rather than the ALIAS!!!!
>LOCATE FOR TYP = lcType
>IF !FOUND()
>     APPEN BLANK
>     REPLACE TYP WITH lcType in TEMP
>     GO top
>     thisform.grid1.refresh
>ELSE
>       =MESSAGEBOX("found.....")
>endif
>

>
>Terry
>
>
>>hi all,
>>
>>i need help to insert item (evrey time one item only) from grid2 to grid1
>>i try via this code under.
>>but this code get all items form grid2 and replacement to grid1
>>
>>but i need to replace one item after i make choice
>>i try ==,
>>i try set exact on,
>>and set near off,
>>and upper,alltrim
>>same result ...
>>
>>

>>LPARAMETERS nColIndex
>>LOCATE FOR temp.typ=THISFORM.GRID2.column1.text1.VALUE
>>IF !FOUND()
>>      SELECT 3 &&mytablename is temp
>>      APPEN BLANK
>>      REPLACE temp.typ WITH THISFORM.GRID2.column1.text1.VALUE
>>      GO top
>>      thisform.grid1.refresh
>>
>>ELSE
>>       =MESSAGEBOX("found.....")
>>endif
>>
>>

>>thanks.