Page Frame

hasta.dbf dosyasının içindeki adi fieldi içinde arama yaptırmak amacıyla ;
içinde 3 sayfa bulunan bir page fremde bir arama gerçekleştirmeye calıştım. yapılan aramanın sonuçları hemen altındaki gridde görlüyor bunun için

combobox ın lostfocusuna
LOCAL cDisplayValue,cSqlStr,cCountryName
cDisplayValue = ALLTRIM(THIS.DisplayValue)
THIS.SelLength = 0
IF EMPTY(m.cDisplayValue)
    RETURN
ENDIF

THISFORM.LockScreen = .T.

IF THIS.Value = "(All)"
    SELECT adi AS adi,* FROM hasta INTO CURSOR Custs
    This.parent.Grid1.recordsource = "Custs"
ELSE
    SELECT adi AS adi,* FROM hasta ;
         WHERE UPPER(ALLTRIM(hasta.adi)) = UPPER(m.cDisplayValue);
         INTO CURSOR Custs
    This.parent.Grid1.recordsource = "Custs"
    IF _TALLY #0
        cCountryName = ALLTRIM(hasta.adi)
        IF ATC(m.cCountryName,THIS.RowSource) = 0 AND !EMPTY(m.cCountryName)
            THIS.RowSource=THIS.RowSource+","+m.cCountryName
        ENDIF
        THIS.Value = m.cCountryName
    ENDIF   
ENDIF
THISFORM.LockScreen = .F.

keypresine

#DEFINE DELKEY 127
LPARAMETERS nKeyCode, nShiftAltCtrl
LOCAL cDisplayValue
IF nKeyCode = DELKEY
    cDisplayValue = ALLTRIM(THIS.DisplayValue)
    IF LEN(m.cDisplayValue)=1
        cDisplayValue = ""
    ELSE
        cDisplayValue = LEFT(cDisplayValue,LEN(cDisplayValue)-1)
    ENDIF
ELSE
    cDisplayValue = ALLTRIM(THIS.DisplayValue)+CHR(nKeyCode)
ENDIF

THISFORM.LockScreen = .T.
DO CASE
CASE EMPTY(m.cDisplayValue)
    This.parent.Grid1.recordsource = " "
CASE THIS.Value = "(All)"
    SELECT adi AS adi,* FROM hasta;
        INTO CURSOR Custs
    This.parent.Grid1.recordsource = "Custs"
OTHERWISE
    SELECT adi AS adi,* FROM hasta ;
     WHERE UPPER(ALLTRIM(hasta.adi)) = UPPER(m.cDisplayValue);
     INTO CURSOR Custs
    This.parent.Grid1.recordsource = "Custs"
ENDCASE
THISFORM.LockScreen = .F.

********
yazdım arama işi başarılı oldu ;

browse(grd) bölümünde bulduğu kayıtlardan birini seçtiğim zaman diğer page frame sayfalarındaki o kayıtla ilgili bölümlerinde yenilenmesini istiyorum. ama henüz başaramadım

grd :in afterrowcolchange bölümüne
LPARAMETERS nColIndex
SELECT hasta
m.aa=RECNO()
GOTO m.aa
thisform.refresh()
yazdım olmadı
aynı komutu clic ede ekledim yine olmadı

ne yapmam lazım ?