1 Konuyu açan avrasya34 Son düzenleyen, avrasya34 (14.12.2012 17:10:46)

  • avrasya34
  • Uzman Üye
  • Offline
  • Yer: Üsküdar / İstanbul
  • Kayıt Tarihi: 16.12.2006
  • İleti: 358

Konu: Gridde colon

Bir gridde colonların boş olup olmadığını kontrol etmek istiyorum

Visual Fox Pro
COUNT TO aa FOR EMPTY(this.Parent.grdFatura.column5.ControlSource)

bu kolonun bağlı olduğu field boşsa da doluysa da  "0" döndürüyor

oysa field boşsa o colonun visible=.f. yapmalıyım

şimdiden teşekkürler

avrasya34's Website

2 Cevaplayan avrasya34 Son düzenleyen, avrasya34 (18.12.2012 12:04:37)

  • avrasya34
  • Uzman Üye
  • Offline
  • Yer: Üsküdar / İstanbul
  • Kayıt Tarihi: 16.12.2006
  • İleti: 358

Re: Gridde colon

Visual Fox Pro
with this 

For T=1 To Fcount('kayit')-4

        If Mod(T,2)=1

            .Columns(T).header1.ForeColor= Rgb(0,0,255)

            .Columns(T).header1.BackColor= Rgb(177,255,140)

            .Columns(T).header1.Alignment=2

            .Columns(T).header1.FontBold=.T.

            .Columns(T).BackColor= Rgb(0,255,255)

        Else

            .Columns(T).BackColor=Rgb(217,255,255)

            .Columns(T).header1.ForeColor= Rgb(0,0,255)

            .Columns(T).header1.BackColor=Rgb(177,255,140)

            .Columns(T).header1.Alignment=2

            .Columns(T).header1.FontBold=.T.

        Endif

               local aa

        COUNT for !EMPTY(EVALUATE(ALLTRIM(.columns(t).controlsource))) TO aa

        IF m.aa>0

            .Columns(t).visible=.t.

        ELSE 

            .Columns(t).visible=.f.

        ENDIF 

    Endfor

    .Columns(FCOUNT()).visible=.f.

endwith

Bu şekilde oldu

avrasya34's Website