Skip to main content

AccessTr.neT

Kayıt Ol

 | Facebook ile Bağlan  | Twitter İle Bağlan | Google+ İle Bağlan

Vb.net Filtreleme Sonucu Ayrıntılı Veri Sayısı

alican60
alican60
Visual Basic .NET Cevaplanmış Soruları
2
2054

Vb.net Filtreleme Sonucu Ayrıntılı Veri Sayısı

Question #1
alican60
Aktif Üye
alican60
Bul
Aktif Üye
Adı Soyadı: Al.... Ca....
Konum: Tokat
Ofis Versiyonu: -
Son Oturumu: 20/11/2023,21:11
Yorumları: 138
Konuları: 44
Kayıt Tarihi: 29/12/2012
Teşekkür Puanı: 0
Merhaba.Ekte adı-soyadını combosundan isim seçtiğimde filtreleme sonucundaki çıkan İL sayılarını ilgili textboxlara nasıl aktarabilirim.
.rar VB.NET-SORU.rar (Dosya Boyutu: 99,69 KB | İndirme Sayısı: 15)
Cevapla
#2
alpeki99
Düşünmek en zor iştir...
alpeki99
www Bul
Uzman
Adı Soyadı: Ol....
Yaşı: 44
Konum: Bursa
Ofis Versiyonu: Ofis 2010 32 Bit
Son Oturumu: 05/12/2024,08:44
Yorumları: 6.138
Konuları: 162
Kayıt Tarihi: 29/10/2008
Teşekkür Puanı: 1.291
Mesleğiniz: Yazılım Geliştirici
(17/03/2017, 21:36)alican60 yazdı: Merhaba.Ekte adı-soyadını combosundan isim seçtiğimde filtreleme sonucundaki çıkan İL sayılarını ilgili textboxlara nasıl aktarabilirim.

Bir prosedür ekleyin adı SayilariOgren olsun:

Sub SayilariOgren()

    txtAdana.Text = 0
    txtAnkara.Text = 0
    txtMersin.Text = 0
    txtIzmir.Text = 0

    For i As Integer = 0 To DataGridView1.Rows.Count - 1

      If (DataGridView1.Rows(i).Cells("DogumYeri").Value IsNot DBNull.Value Or Trim(DataGridView1.Rows(i).Cells("DogumYeri").Value <> Nothing)) Then

        If (DataGridView1.Rows(i).Cells("DogumYeri").Value = "ANKARA") Then
          txtAnkara.Text = Convert.ToInt32(txtAnkara.Text) + 1
        End If
        If (DataGridView1.Rows(i).Cells("DogumYeri").Value = "ADANA") Then
          txtAdana.Text = Convert.ToInt32(txtAdana.Text) + 1
        End If
        If (DataGridView1.Rows(i).Cells("DogumYeri").Value = "MERSİN") Then
          txtMersin.Text = Convert.ToInt32(txtMersin.Text) + 1
        End If
        If (DataGridView1.Rows(i).Cells("DogumYeri").Value = "İZMİR") Then
          txtIzmir.Text = Convert.ToInt32(txtIzmir.Text) + 1
        End If

      End If

    Next

  End Sub

Combobox SelectedChange olayında yazdığınız kodlarda :

Me.DataGridView1.DataSource = TABLO

satırından sonrasında prosedürü çağırın:

Me.DataGridView1.DataSource = TABLO

    SayilariOgren()

şeklinde olacak. Metin kutularına isim verirken TextBox1 vs. isim vermeyin ne olduğu anlaşılmıyor. Benim eklediğim örnekte isimlerini değiştirdim.

TextBox'ların özelliklerinden Text değerlerini 0 yapmazsanız hata alırsınız.
AccessTr.Net teknik konular içeren bir sitedir. Bu tip sitelerde en iyi şekilde yardım alabilmeniz için Site Kurallarını mutlaka okumanız ve buna göre hareket etmeniz lazım.
Cevapla
#3
alican60
Aktif Üye
alican60
Bul
Aktif Üye
Adı Soyadı: Al.... Ca....
Konum: Tokat
Ofis Versiyonu: -
Son Oturumu: 20/11/2023,21:11
Yorumları: 138
Konuları: 44
Kayıt Tarihi: 29/12/2012
Teşekkür Puanı: 0
Teşekkür ederim.Allah razı olsun.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da