AccessTr.neT

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

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

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