Lİstenİn Satir Rengİnİ DegİŞmesİ

[akd]

Merhaba arkadaşalar,
Ben çek ödemelerinin takibi için bir çalışma yaptım,
ödemeleri listwieve aldığımda,
son sutun olan Acilama sutunudakilerde ÖD varsa,
kyt.SubItems(7) = RS("Acilama")
O satırın komple yazı rengini kırmızı yapmasını yapamadım
Sub geri_al()
On Error Resume Next
Set RS = CreateObject("ADODB.recordset")
strSQL = "SELECT * FROM [Mycek] ORDER BY SiraNo"
RS.Open strSQL, adoCN, 1, 3
RS.MoveFirst
Liste.ListItems.Clear
Do While Not RS.EOF
Set kyt = Liste.ListItems.Add(, , RS("SiraNo"))
kyt.SubItems(0) = RS("SiraNo")
kyt.SubItems(1) = RS("AlinanKisi")
kyt.SubItems(2) = RS("CekSahibi")
kyt.SubItems(3) = RS("CekTarihi")
kyt.SubItems(4) = RS("CekMiktari")
kyt.SubItems(4) = Format(kyt.SubItems(4), "#,##0.00")
kyt.SubItems(5) = RS("BankaAdi")
kyt.SubItems(6) = RS("CekNo")
kyt.SubItems(7) = RS("Acilama")
RS.MoveNext
X = X + 1
Label14.Caption = X
Loop
Set RS = Nothing
End Sub

 

[akd]

merhaba arkadaşlar,
Bu konuda hocalarımızdan fikri olan yokmu acaba ?
selamlar...

 

[kartal1a]

sayın akd bende uğraşmıştım listboxta ki satır ve sütunları ayrı ayrı formatlamak için tüm formlara yazdım böyle bir özellik yokmuş bende çalışma sayfalarını listbox gibi kullanıyorum istediğin gibi formatlayabiliyorsun list wiew de de durumun aynı olacağını düşündüm yanlışsa arkadaşlar ve hocalarımız düzeltirler iyi günler