Grid te işaretleme yaparken numaratörü arttırma

2. Yöntem;

Formuna bir tana Property ekle GridCheckBoxCount gibi

Checkbox için bir sınıf oluştur; ve her tıklandığında sayacını bir artır yada azalt.

Procedure Click ; bir form içinde GUI ile mi tanımlı yoksa kendin KOD ile mi oluşturdun? Eğer Form nesnesi ile menüler den oluşturduysan kodunun çalışması lazım. KOD yazarak oluşturduysan; öncelikle From nesnesinin içerisinde ADD OBJECT ile grid nesnesini forma eklemen gerekiyor; devamında da myGrid.Click() olarak kodlama yaparsan sonuç alırsın.

Kişisel birkaç öneri :

Select 4 yerine Select 'BenimTablom' şeklinde kullan. Hataya yer vermemiş olursun.

Değişken tanımlamalarında, yerel değişkenler için  LOCAL kullanımını alıskanlık haline getir.

"m." önekini değişkenlerinde mutlaka belirt.  Aynı isimli fieldlar kullandığında ( ki bir gün mutlaka çakışıyor ) hatalara karşı önlem almış olursun.

Değişkenleri "m.lcbenimdegiskenim" şeklinde kullan. Kullandığın değişkenin LOCAL olduğunu hatırlamak için "l"; değişkenin tipini hatırlamak için "c" türünde prefixler kullan.

Daha önce TARKAN 'ın bu konuda yazdığı 10-20 sayfalık bir döküman vardı. İşe onu okuyarak başlayabilirsin . Linkini forumdan bulabilirsin.

http://rapidshare.com/files/423206318/V … um_R10.pdf

http://rapidshare.com/files/423209401/I … amming.pdf

Kod ekte :

Procedure AfterRowColChange

sorunsuz çalışıyor.

Amacım, Column1 de bulunan check boxı tıkladığımda check işateti (.T.) yaptıysam

COUNT TO .txt2topyazdir.Value FOR yazici=.T.

da bulunan  .txt2topyazdir.Value  yi 1 attırmak, check işatetini kaldırdıysam (.F.) .txt2topyazdir.Value  yi 1 azaltmak.

**************
              sele 4 
              sakla2=RECNO()
              GO TOP
              COUNT TO .txt2topyazdir.Value FOR yazici=.T.
              GO sakla2
**************

kodunu Procedure AfterRowColChange içine koyduğumda bu işlemi yapıyor ama KOLON DEĞİŞTİRMEMİ BEKLİYOR.

Bense mouse ile tikleme esnasında yapmak istiyorum. Bunun için PROCEDURE Click  yaratıp içine koydum ama çalışmadı.

Teşekkürler

******************************************************************
Define Class myGrid as Grid
******************************************************************
*    Top = 62
    Top = 335
    Left = 2
    Height = 310
    Width = 1335
    ColumnCount = 20
    DeleteMark = .t.
    RecordMark = .t.
    ReadOnly = .T.
    RecordSource = "kon9"
    ScrollBars = 3
    GridLineColor = Rgb(192,192,192)
*    BackColor = 255
   
    Procedure Init
        With this
*       Scatter Name This.oRecord Memo

            .Column1.Header1.Caption = 'Yazdır'
            .Column1.Width = 50       
            .Column1.ControlSource = "kon9.yazici"
            .Column1.AddObject("chk1", ;
            "checkbox")
            .Column1.CurrentControl = ;
            "chk1"
            .Column1.chk1.Visible = .T.
            .Column1.chk1.Caption = ""
            .Column1.sparse=.f.
            .Column1.Chk1.Enabled=.t.

            .Column2.Header1.Caption = 'Sıra'
            .Column2.Width = 35       
            .Column2.ControlSource = "kon9.sno"
*            .Column2.BackColor = 255

                                               
        EndWith
    this.SetAll('Enabled',.F.,'textbox')
*    this.SetAll('Enabled',.F.,'CheckBox')
    this.SetAll('DisabledForeColor',0,'textbox')

    EndProc
                 
    Procedure AfterRowColChange
        Lparameters nColIndex
        DoDefault(nColIndex)
        With oForm
     SELE 4
     * gkod=.txtNo.Value
*        BROWSE
            .txt2Sno.Value         = Sno
                         
        EndWith
       Thisform.Refresh()
    EndProc

******************************************************************
    PROCEDURE Click
******************************************************************
              sele 4 
              sakla2=RECNO()
              GO TOP
              COUNT TO .txt2topyazdir.Value FOR yazici=.T.
              GO sakla2
    ENDPROC
   
EndDefine

Konuka,

Koda nasıl ekleyeceğim konusunda yardımcı olabilirmisin ?

Bazı konuları adım adım gidiyorum.

Teşekkürler.

Diğer sorundaki kod a baktım. sadece ilk yüklemede checklenmiş adedi buluyor. sonra işaretlemelerde sayıyı arttırıp azaltmıyor.. ?