08/07/2011, 14:33
aobendes
listview içine eklenecek tablo veya sorgu alanlarını bulun, buraya :
lstItem.SubItems(3) = Nz(Trim(rs!borç)) 'eğer alan boş ise hata vermesin diye NZ li yapıyoruz. satırının altına :
lstItem.SubItems(3) = Format(rs!borç, "Currency")
lstItem.SubItems(3) = rs!borç & " TL."
kodlarını ekleyin. Sonuçtan bilgi vermeyi unutmayın.
lstItem.SubItems(3) = Nz(Trim(rs!borç)) 'eğer alan boş ise hata vermesin diye NZ li yapıyoruz. satırının altına :
lstItem.SubItems(3) = Format(rs!borç, "Currency")
lstItem.SubItems(3) = rs!borç & " TL."
kodlarını ekleyin. Sonuçtan bilgi vermeyi unutmayın.