Konu: 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 ?