1 Konuyu açan keys

  • keys
  • Üye
  • Offline
  • Kayıt Tarihi: 21.03.2007
  • İleti: 19

Konu: Grid yardım.

Bir Programda gridle başım belada smile
form içinde görümez bir butonu tıklayarak gridi yapılandırıyorum. 

THISFORM.GRID1.COLUMNCOUNT=7
thisform.grid1.recordsourcetype=1
thisform.grid1.recordsource="durum"
thisform.grid1.FontSize=8
THISFORM.GRID1.ReadOnly=.t.

THISFORM.GRID1.COLUMN1.WIDTH=169
THISFORM.GRID1.COLUMN1.HEADER1.CAPTION = "Birim Adı"
THISFORM.GRID1.COLUMN1.HEADER1.FontBold=.t.

THISFORM.GRID1.COLUMN2.WIDTH=110
THISFORM.GRID1.COLUMN2.InputMask="999,999,999.99"
THISFORM.GRID1.COLUMN2.text1.InputMask="999,999,999.99"
THISFORM.GRID1.COLUMN2.HEADER1.CAPTION = "Önceki Yıl Birim Payı"
THISFORM.GRID1.COLUMN2.HEADER1.FontBold=.t.


... diye formun ve gridin çalışmasında bir sorun yok.
Fakat benim durum adlı datamda kod diye bir değişken var.
bu değişken - bakiyelerde 1 artılarda sıfır. ben griddeki durum.kod=1 olan satırları farklı renkte boyamak istiyorum bunun için

THISFORM.GRID1.COLUMN1.DYNAMICBACKCOLOR=IIF(durum.kod=1,RGB(255,0,0),RGB(255,250,180))
diyorum ve datatype invalid this property hatasını alıyorum.
bunu nasıl gideririm.
fox ilk başta benim tarafımdan belirlenmeyip komutla column lar belirlendiyi için column1 column2 yi mi tanımıyor yoksa THISFORM.GRID1.COLUMN1.DYNAMICBACKCOLOR=IIF(durum.kod=1,RGB(255,0,0),RGB(255,250,180))
da bir hata mı var?
yardım ederseniz çok sevinirim.

2 Cevaplayan cetinbasoz

  • cetinbasoz
  • cetinbasoz
  • Uzman Üye
  • Offline
  • Kayıt Tarihi: 07.10.2006
  • İleti: 3,162

Re: Grid yardım.

THISFORM.GRID1.COLUMN1.DYNAMICBACKCOLOR="IIF(durum.kod=1,RGB(255,0,0),RGB(255,250,180))"

cetinbasoz's Website

3 Cevaplayan mrduyar

  • mrduyar
  • mrduyar
  • Uzman Üye
  • Offline
  • Yer: Antalya
  • Kayıt Tarihi: 09.10.2006
  • İleti: 620

Re: Grid yardım.

selamlar;

Visual Fox Pro
Thisform.grid1.RecordSource='tsatir.'

    With Thisform.grid1

        .ReadOnly = .T.

        .DeleteMark = .F.

        .RecordMark = .F.

        .ColumnCount = 14

        .ScrollBars= 2

        .Column1.ControlSource = "tsatir.cinsi"

        .Column1.Header1.Caption = "Cinsi"

        .column2.ControlSource = "tsatir..barkod"

        .column3.Header1.Caption = "barkod"

        .AutoFit()

        .SetAll("dynamicforecolor", "", "Column")

        .SetAll("dynamicforecolor","IIF(!ISNULL(tsatir.siparis), RGB(255,0,0), RGB(0,0,0))", "Column")

    Endwith

senin koduna çeviremedim ama sanırım bu denin işine yarar.

Bilmediğin Neyse Yanıldığındır.

4 Cevaplayan keys

  • keys
  • Üye
  • Offline
  • Kayıt Tarihi: 21.03.2007
  • İleti: 19

Re: Grid yardım.

Teşekkürler arkadaşlar;
Artık grid istediğim gibi çalışıyor.
cetin bey ve mrduyar beyin yazdığı gibi iif komutu çift tırnak içinde olacakmış:)
cetin bey ve mrduyar beye teşekkür ederim.