CREATE CURSOR csredui (;
  no i(10), ;
   dat  d(8), ;
    dat1  d(8), ;
    namc  c(70), ;
   places  c(70))
   
thisform.PAGEFRAME1.PAGE4.grid1.&&&(display no,dat,dat1,namc,places)

USE mytable IN 0
locate for no=thisform.text1.value
if !found()
    APPEND FROM thisform.PAGEFRAME1.PAGE4.grid1
else
   mesagebox("?????????")
endif