Giriş yapmadınız. Lütfen giriş yapın yada kayıt olun.
fox4um » Gridler ve Diğer Kontroller » İki Ayrı Gridi Kontrol Etmek
Formumda 2 tane grid ve bir textbox var. Malzeme.dbf dosyasında giriş ve çıkış işlemleri yapıyorum. İlgili fielde giriş için G , çıkış için Ç kaydediyorum. textbox a eşyanın ismini yazıyorum. textbox a yazdığım isimdeki eşyaların grid1 de G olanlarının , grid2 de de Ç olanlarının filtre edilmesini istiyorum. Ayrıca textbox değiştikçe gridlerin her ikisinin de refresh olmasını istiyorum. Bu konuda yardımlarınızı bekliyorum.
her iki grid için sql-select den yararlanabilirsin. 1. grid için "g" 2. grid için "ç" kayıtlarını seçen
sql ifadesiyle kolayca çözülebilir. (gridlerin recordsourse u için sql ifadesini seçerek , sql ifadesini yazarak ve gerekli kontrolleri yaparak)
&& textbox interactive change event yada textbox yanindaki bul cmdbutton kodu
Select * From malzeme ;
WHERE malzeme.mkodu Like [%] + Alltrim(Thisform.txtmkodu.Value) + [%]
And malzeme.GC = [G] ;
INTO Cursor CrsGirenler NOFILTER
Select * From malzeme ;
WHERE malzeme.mkodu Like [%] + Alltrim(Thisform.txtmkodu.Value) + [%]
And malzeme.GC = [C] ;
INTO Cursor CrsCikanlar NOFILTER
With Thisform
.grid1.RecordSource=[CrsGirenler]
.grid2.RecordSource=[CrsCikanlar]
.Refresh()
Endwith
hocam sağol da yeri gelmişken bişey sorayım [%] bu sorguda ne işe yarıyor
where isim Like "M%"
demek M ile baslayanlar anlamında. DOsyaadlarında kullanılan wildcardlar gibi. M* - * yerine %, ? yerine _ kullanabiliyorsun. Ancak VFP varsayılan ayarları ile gereksiz. Dogrudan = "M" yazmakla aynı sey. Boyle bir like ile VFP da birscok kaydı kacırırsın (case sensitive).
Bence Ercan'ın soyledigi yontemi tercih et.
*grdGiren.init
with this
.RecordSourceType = 4
.RecordSource = "select * from myTable where giriscikis == 'G'"+;
" and upper(malzeme) == upper(thisform.txtMalzeme.Value)"+;
" into cursor crsGiren"
endwith
*grdCikan.init
with this
.RecordSourceType = 4
.RecordSource = "select * from myTable where giriscikis == 'C'"+;
" and upper(malzeme) == upper(thisform.txtMalzeme.Value)"+;
" into cursor crsCikan"
endwith
* txtMalzeme.interactivechange
with thisform.grdGiren
.RecordSource = .RecordSource
endwith
with thisform.grdCikan
.RecordSource = .RecordSource
endwith
Cetin hocam daha efektif bir cevap vermis,
M% m ile baslayanlar
%M m ile bitenler
%M% basi sonu onemli degil icinde M olanlar
fox4um » Gridler ve Diğer Kontroller » İki Ayrı Gridi Kontrol Etmek