Sütun Başlıklarını Tarihe Göre Şekillendirme

  • Konuyu başlatan Konuyu başlatan ssavas
  • Başlangıç tarihi Başlangıç tarihi
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...

ssavas

VIP Üye
Kullanıcı
Katılım
3 Ağu 2017
Mesajlar
247
Merhaba arkadaşlar.
Buradaki kod içerisinde bulunulan yıla ait ay isimlerini döngü ile For aa = 1 To 12 .ColumnHeaders.Add , , Format(DateSerial(Year(Date), aa, 1), "mmmm yyyy"), 80, lvwColumnCenter Next aa bulunuyor.
Burada, döngüdeki hesaplanan yıl bilgisini textbox1 den almasını nasıl sağlarız.
Mevcut duruma göre 2021 yılına ait ay isimleri listview da sütun başlığı olarak tanımlanıyor ve devamında da 2021 yılına ait aylık toplamlar bulunuyor.
Yapılacak revizyon ile textbox1 de yazdığım tarihe göre listview1 sütun başlıkları tanımlansın ve tanımlı olan yılın ay toplamları hesaplansın.
Yardımcı olacak uzman arkadaşlara teşekkür ederim.
CPP: 
İndirmek için giriş yapmanız gerekmektedir.
(63 satır)
 
Formülde ki şartı çoğaltma
Tutarları eşleşenleri aktarma

Ekli dosyalar

Tarihe göre sırala Oylamaya göre sırala
s.savas' Alıntı:
.ColumnHeaders.Add , , Format(DateSerial(Year(Date), aa, 1), "mmmm yyyy"), 80, lvwColumnCenter
Genişletmek için tıklayın ...
Bu kodu aşağıdaki gibi
.ColumnHeaders.Add , , Format(DateSerial(Year(Cdate(TextBox1.Text)), aa, 1), "mmmm yyyy"), 80, lvwColumnCenter


s.savas' Alıntı:
sorgu = "Transform sum(fatura_tutari) Select IlAdi,IlceAdi,birim_adi,abone_adi,abone_no from fatura Where Year(fatura_tarihi)='" & Year(Date) & "' "
Genişletmek için tıklayın ...
Bu kodu aşağıdaki gibi
sorgu = "Transform sum(fatura_tutari) Select IlAdi,IlceAdi,birim_adi,abone_adi,abone_no from fatura Where Year(fatura_tarihi)='" & Year(Cdate(TextBox1.Text))) & "' "
 
Oyla 0 Olumsuz oyla
Feyzullah' Alıntı:
Bu kodu aşağıdaki gibi
.ColumnHeaders.Add , , Format(DateSerial(Year(Cdate(TextBox1.Text)), aa, 1), "mmmm yyyy"), 80, lvwColumnCenter



Bu kodu aşağıdaki gibi
sorgu = "Transform sum(fatura_tutari) Select IlAdi,IlceAdi,birim_adi,abone_adi,abone_no from fatura Where Year(fatura_tarihi)='" & Year(Cdate(TextBox1.Text))) & "' "
Genişletmek için tıklayın ...
Üstat teşekkür ederim, ancak sütun başlıkları doğru gelmediği gibi aylık veriler de listview1 e gelmedi.
CPP: 
İndirmek için giriş yapmanız gerekmektedir.
(69 satır)
sorgu.webp
 
Oyla 0 Olumsuz oyla
Hocam ben o alana 02.01.2020 tarih gireceğinizi düşünerekten yapmıştım. Eğer sadece yıl yazacaksanız.
ilk mesajınızdaki Year(Date) yazan yeri TextBox.Text yapmanız yeterli.
 
Oyla 0 Olumsuz oyla
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Benzer Konular Popüler İçerikler Daha Fazlası
Geri
Üst Alt