Giriş yapmadınız. Lütfen giriş yapın yada kayıt olun.
fox4um » Gridler ve Diğer Kontroller » Gridde Aktif satırın ilk kolon değeri
Merhaba arkadaşlar,
Gridde AllowCellSelection=.F. durumdayken üzerine tıkladığım satırın ilk kolonunun değerini nasıl öğrenebilirim.
Gridin click eventine This.Column1.Text1.Value yazarak almaya çalıştığımda sadece gridin ilk kolonuna tıklarsam sonucu doğru veriyor.
AfterRowColChange() mehhodunda dene
Grid1.AfterRowColChange()
Local lcMyValue
m.lcMyValue = This.Column1.Text1.Value
İlk onu denemiştim, olmamıştı Uğur Bey,
aşağıdaki şekilde çözdüm.
DEGER=This.Column1.Text1.ControlSource
DEGER=&DEGER
...Value filan diye ugrasma, & da kullanma. Her gridin bagli oldugu bir kaynak vardir. Dogrudan kaynak tablo neyse onun ilgili alanina bak. Ornegin kaynak "customer" tablosu ise ve ilk kolonda "company" alani varsa:
deger = customer.Company
Eger grid jenerik bir grid oldugu icin bu sekilde yapamiyorsan:
deger = evaluate(this.Columns(1).ControlSource) && Column1.Text1 degil ve & kullanimi yok
deger = evaluate(this.Columns(1).ControlSource)
işimi görüyor hocam, teşekkürler.
...Value filan diye ugrasma, & da kullanma. Her gridin bagli oldugu bir kaynak vardir. Dogrudan kaynak tablo neyse onun ilgili alanina bak. Ornegin kaynak "customer" tablosu ise ve ilk kolonda "company" alani varsa:
deger = customer.Company
Eger grid jenerik bir grid oldugu icin bu sekilde yapamiyorsan:
deger = evaluate(this.Columns(1).ControlSource) && Column1.Text1 degil ve & kullanimi yok
Tam bu noktada çalışıyordum, tartışma başka bir şekilde karşıma çıktı:
örneğin: enfazla, giden1, giden2 diye bir tablom 'a bağlı grid üzerinde işlem yapıyorum.
giden1 (mygrid.column2.Text1) Valid eventte giden1 ve giden2 toplamının enfazladan az olduğunu test edip fazla ise messagebox ile uyarı veriyorum.
Tabloya ne yaptı isem göz terketmeden yazmıyor,o nedenle değeri gözün Value değerinden almak durumunda kalıyorum - yani aşağıdakinden başka çözüm bulamadım:
mygrid.column2.Text1 Valid eventte
IF This.Value + tablom.giden2 > tablom.enfazla
MESSAGEBOX("olmadı")
RETURN 0 && Valid Event
ENDIF
ve de mygrid.column3.Text1 Valid eventte
IF This.Value + tablom.giden1 > tablom.enfazla
MESSAGEBOX("olmadı")
RETURN 0 && Valid Event
ENDIF
aftercolrowchange içinde tablo ile halledebileceğim çözüm öneriniz var mı ?
Bu sadece o an uzerinde olunan goz icin sorun ve nedeni daha degeri yazmamis olamasi. Cozumu basit ama biraz garip:)
this.Value = this.Value
if tablom.giden1 + tablom.giden2 > tablom.enfazla
MESSAGEBOX("olmadı")
RETURN 0 && Valid Event
ENDIF
Not: Valid yerine lostfocusu siddetle tavsiye ederim. Valid VFP7 sonrasi problemli (gostermesi kolay olmayabilir problemi, sansimi deneyeyim - o validden baska bir formu (modal) cagirip donmek gibi)
evet validde ben de problemler yaşadım... ding ding diye ses geliyordu. formlar kitleniyordu.
fox4um » Gridler ve Diğer Kontroller » Gridde Aktif satırın ilk kolon değeri