Vatansever
Asistan
- Katılım
- 23 Ağustos 2007
- Mesajlar
- 405
- Reaksiyon puanı
- 1
- Puanları
- 18
Arkadaşlar projemde şöyle birşeye ihtiyacım var basitçe anlatayım bu koda nasıl neden ihtiyacım var anlarsanız daha iyi elimde 2 adet datagrid var DataGridView1 ve DataGridView2 DataGridView2'in içi bilgilerle dolu , DataGridView1'de form load'da eklediğim kod ile 10 adet boş satır oluşturuluyor. DataGridView1'de bir satıra tıklayıp seçiyorum ardından DataGridView2'deki bir satıra tıklıyorum ve DataGridView2'deki satırdaki bütün yazılar DataGridView1'deki seçili satıra kopyalanıyor işte hepsi bu DataGridView1'de boş satır adedi 5'in altına düşmesin istiyorum basit bir fonksiyon yaptım her işlem yapıldığında çalıştırılacak bos satır adedini bulup ya yeni boş satır ekleyecek yada en sonuncu boş satırı bulup onu silerek eksiltecek kodum aşağıda burda i 'yi bir integere atıyorum bu en son satır no'sudur ama silme kodu integeri kabul etmiyor integer harici değişik şeyler denedim olmadı ama i integer kodu döngü içine koyduğumda Me.DataGridView1.Rows.RemoveAt(i) bu şekilde çalışıyor ama benim bunu döngü dışında kullanmam gerekiyor en azından benim mantığıma göre,, Kod döngü dışında çalışmıyor bu durumda kodun çalışması için (Dim enSonBosSatir As Integer) özelliğini integer değilde ne yapmalıyımki satır silme kodu döngü dışında çalışsın?
Kod:
Sub x_bossatırlarıayarlama()
Dim bosSatirAdedi As Integer = 0
Dim enSonBosSatir As Integer
For i As Integer = 0 To Me.DataGridView1.Rows.Count - 1
If String.IsNullOrEmpty(Trim(CStr(Me.DataGridView1.Rows(i).Cells(1).Value))) Then
bosSatirAdedi = +1
enSonBosSatir = i
End If
Next
If bosSatirAdedi < 5 Then
Me.DataGridView1.Rows.Add()
Else
'Me.DataGridView1.Rows.RemoveAt(enSonBosSatir) ' BU KOD ÇALIŞMIYOR
End If
End Sub