>Try the code I sent you!
>
>Dear Sir,
>In previous questin the field names are as field1, field2 and so on to field10
>
>But in this question the field names are diffrent as seed_code,fruit_code,veg_code etc
>
>Please help again

Sorry, I did not notice.

Select table1
lnMax=AFIELDS(temp)
Scan
  FOR x=1 TO lnMax
    if eval(temp(x,1))=1301002
      replace (temp(x,1)) with 1501002
    endif
  endfor
Endscan