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

Vb.net Filtreleme Sonucu Ayrıntılı Veri Sayısı - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Visual Basic .NET (https://accesstr.net/forum-visual-basic-net.html)
+--- Forum: Visual Basic .NET Cevaplanmış Soruları (https://accesstr.net/forum-visual-basic-net-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Vb.net Filtreleme Sonucu Ayrıntılı Veri Sayısı (/konu-vb-net-filtreleme-sonucu-ayrintili-veri-sayisi.html)

Vb.net Filtreleme Sonucu Ayrıntılı Veri Sayısı - alican60 - 17/03/2017

Merhaba.Ekte adı-soyadını combosundan isim seçtiğimde filtreleme sonucundaki çıkan İL sayılarını ilgili textboxlara nasıl aktarabilirim.

Cvp: Vb.net Filtreleme Sonucu Ayrıntılı Veri Sayısı - alpeki99 - 19/03/2017

(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.

Cvp: Vb.net Filtreleme Sonucu Ayrıntılı Veri Sayısı - alican60 - 19/03/2017

Teşekkür ederim.Allah razı olsun.