Konu: Grid sıralama ..
Merhaba ..
Önceki mesajlarda bu konuda bir kod gördüm ama onu kullanmak istemiyorum.
Önceden grid sütunlarını Wizard ile oluştururken her column.header.click ine aşağıdaki kodu yazıyordum. (biraz kaba bi kod ama ..)
şimdi grid i , sizlerden öğrendiğim gibi grid.init de düzenliyorum.
ben kolon sıralaması ile ilgili aşağıdaki kodu nereye yazmalıyım..
Şimdiden teşekkürler..
İyi Çalışmalar..
thisform.grid1.column1.header1.forecolor=RGB(0,0,0)
thisform.grid1.column2.header1.forecolor=RGB(0,0,0)
*thisform.grid1.column3.header1.forecolor=RGB(0,0,0)
thisform.grid1.column4.header1.forecolor=RGB(0,0,0)
thisform.grid1.column5.header1.forecolor=RGB(0,0,0)
thisform.grid1.column6.header1.forecolor=RGB(0,0,0)
thisform.grid1.column7.header1.forecolor=RGB(0,0,0)
thisform.grid1.column8.header1.forecolor=RGB(0,0,0)
SELECT cmv
local m.renk
do case
case thisform.grid1.column3.header1.forecolor=RGB(0,0,0)
m.renk=1
case thisform.grid1.column3.header1.forecolor=RGB(255,0,0)
m.renk=1
case thisform.grid1.column3.header1.forecolor=RGB(0,0,255)
m.renk=2
endcase
if m.renk=1
SET ORDER TO cvad ASCENDING
thisform.grid1.column3.header1.forecolor=RGB(0,0,255)
else
SET ORDER TO cvad descending
thisform.grid1.column3.header1.forecolor=RGB(255,0,0)
endif
GO TOP
THISFORM.Refresh
endwith