Listview silme sorunu dosya ekledim

[Cengizhantr06]

anaformda listviewden bir müşteri secince solda textboxlara bilgiler geliyor
fakat bir müşteri silince listviewde en alttaki müşteri bilgileri textboxlara gelmiyor
iki müşteri silsem bu kez en alltan 2 müşteri bilgileri textboxlara gelmiyor neden acaba nerde hata var lütfen sevgiler saygılar

 

[Cengizhantr06]

anaformda listviewden bir müşteri secince solda textboxlara bilgiler geliyor
fakat bir müşteri silince listviewde en alttaki müşteri bilgileri textboxlara gelmiyor
iki müşteri silsem bu kez en alltan 2 müşteri bilgileri textboxlara gelmiyor neden acaba nerde hata var lütfen sevgiler saygılar

Konu günceldir

 

[Trilenium]

Private Sub ListView1_Click()

+1 leri kaldırın

 

[Cengizhantr06]

Private Sub ListView1_Click()

+1 leri kaldırın

olmadı malesef yine aynı o zaman son kişiyi seçmiyor ve listviewde 1 no lu olanı seçince textoblara gelen sıralar karışıyor

 

[Cengizhantr06]

olmadı malesef yine aynı o zaman son kişiyi seçmiyor ve listviewde 1 no lu olanı seçince textoblara gelen sıralar karışıyor

Başka bir yolu yokmu lütfen bi yardımcı olsanız

 

[Trilenium]

Private Sub ListView1_Click()
Dim a As Boolean
a = False
Dim i As Integer
For i = 1 To ListView1.ListItems.Count
If (ListView1.ListItems(i).Selected) Then
TextBox14.Text = ListView1.ListItems(i).ListSubItems(1).Text
TextBox6.Text = ListView1.ListItems(i).ListSubItems(1).Text
TextBox7.Text = ListView1.ListItems(i).ListSubItems(2).Text
TextBox8.Text = ListView1.ListItems(i).ListSubItems(3).Text
TextBox9.Text = ListView1.ListItems(i).ListSubItems(4).Text
TextBox10.Text = ListView1.ListItems(i).ListSubItems(5).Text
End If

Next i

End Sub


şu kod ile dener misiniz lütfen

 

[Cengizhantr06]

Private Sub ListView1_Click()
Dim a As Boolean
a = False
Dim i As Integer
For i = 1 To ListView1.ListItems.Count
If (ListView1.ListItems(i).Selected) Then
TextBox14.Text = ListView1.ListItems(i).ListSubItems(1).Text
TextBox6.Text = ListView1.ListItems(i).ListSubItems(1).Text
TextBox7.Text = ListView1.ListItems(i).ListSubItems(2).Text
TextBox8.Text = ListView1.ListItems(i).ListSubItems(3).Text
TextBox9.Text = ListView1.ListItems(i).ListSubItems(4).Text
TextBox10.Text = ListView1.ListItems(i).ListSubItems(5).Text
End If

Next i

End Sub


şu kod ile dener misiniz lütfen

Tm oldu çok teşekkür ederim