Konu: grd içinde verilerin görünmesi
arkadaşlar problemim şu aşağıfaki kodlar form bağımsız çalıştığında sonuçları grd içinde gösteriyor. ama başaka bir formdan bu formu çalıştırdığımda sonuçlar grd de gözükmüyor uysa filtrelemelerde sorun yok browsla baktığımda filtrelemelerin çalıştığını görüyorum. sorun başka bir forumdan bu formu çalıştırdığımda grd objesi sonuçları göstermiyor.
ilk filtreleme options ın validi
SELECT randevu
public sart11,sart12
*sart11=""
IF this.Value=1
sart11 ='tarara=date()'
ENDIF
IF this.Value=2
sart11 ='tarih=date()'
ENDIF
IF this.Value=3
sart11 ='tarih >= date()-7 AND TARIH=<DATE()'
ENDIF
IF this.Value=4
sart11 ='tarih >= date()-15 AND TARIH =< DATE()'
ENDIF
IF this.Value=5
sart11 ='tarih >= date()-30 AND TARIH =< DATE()'
ENDIF
IF this.Value=6
sart11 =".t."
ENDIF
IF EMPTY(sart12)
SET FILTER TO &sart11
ELSE
set filter TO &sart11 and &sart12
ENDIF
a=0
count to a
GO top
if a<1
wait window "şarta uygun hiç bir kayıt yok" nowa
set filt to
endif
wait window "bulunan kayıt sayısı : =" +str(a) nowa
go top
thisform.grdRandevu.Refresh
thisform.refresh
2.optionsun validi
SELECT randevu
public sart12
*sart12=""
if ara2 =1
sart12="aciklama='Ulaşıldı'"
endif
if ara2=2
sart12="aciklama='Ulaşılamadı'"
endif
if ara2=3
sart12="aciklama='Not bırakıldı'"
endif
if ara2=4
sart12="aciklama='Mesaj bırakıldı'"
endif
if ara2=5
sart12="aciklama='Telefon yanlış'"
endif
if ara2=6
sart12="empty(aciklama)"
endif
if ara2=7
sart12=".t."
endif
IF EMPTY(sart12)
SET FILTER TO &sart12
else
set filter TO &sart12 AND &sart11
ENDIF
a=0
count to a
if a<1
wait window "şarta uygun hiç bir kayıt yok" nowa
set filt to
else
wait window "bulunan kayıt sayısı : =" +str(a) nowa
ENDIF
ThisForm.grdRandevu.Refreshgo top
thisform.refresh
sonuçların görüleceği
grd in
afterrowcolcahnge :
LPARAMETERS nColIndex
SELECT hasta
LOCATE FOR no=no
thisform.Refresh
formun bufferı 2
randevunun buffer 5