Skip to main content

AccessTr.neT


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

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

Question #1
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
(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
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
Task