Listviewde değiştir komutu hatalı satırı değiştiriyor.

[wolkss]

Arkadaşlar merhaba excelde yapmış olduğum çalışmamda fiş girişi adlı formda listview üzerindeki herhangi bir veriye tıklayıp bilgileri textboxlara aldırıyorum.
Ancak verilerin üzerinde değişiklik yapıp değiştir dediğim zaman ilgili satırda değişiklik olmuyor listviewde kaçıncı satırda ise o satırda değişiklik oluyor. Yardımlarınız için şimdiden teşekkür ederim.. Saygılar...

 

[wolkss]

arkadaşlar bu konu ile ilgili herhangi bir yorumu olan yok mu?
yapılması mümkün değilse bile söylerseniz ben de ona göre projeden kaldırayım...
ilginiz için teşekkür ederim.

 

[halit3]

kodlarınızı aşağıdakilerle değiştiriniz. ve bir adet label14 nesnesi ekleyiniz.

Private Sub ListView1_DblClick()
x = ListView1.SelectedItem.Index
Me.TextBox2 = ListView1.ListItems(x).ListSubItems(1)
Me.TextBox3 = ListView1.ListItems(x).ListSubItems(2)
Me.TextBox4 = ListView1.ListItems(x).ListSubItems(3)
Me.TextBox5 = ListView1.ListItems(x).ListSubItems(4)
Me.TextBox6 = ListView1.ListItems(x).ListSubItems(5)
Me.TextBox7 = ListView1.ListItems(x).ListSubItems(6)
Me.TextBox8 = ListView1.ListItems(x).ListSubItems(7)
Me.TextBox9 = ListView1.ListItems(x).ListSubItems(8)
Label14 = ListView1.ListItems(x).Text
End Sub

Private Sub CommandButton8_Click()
SN = Val(Label14)
Set sht = Sheets(1)
sht.Cells(SN, 2).Value = Me.TextBox2
sht.Cells(SN, 3).Value = Me.TextBox3
sht.Cells(SN, 4).Value = Me.TextBox4
Set sht = Nothing
Call UserForm_Initialize
End Sub