Listview sıfırıncı sutuna ekleme yapma

[seddur]

Merhaba.Listview1 sıfırıncı sutununa textbox4'deki değeri eklemek istiyorum.Nasıl yazılacağını bilemedim.Yardımcı olabilirseniz sevinirim.

For bak = 1 To UserForm1.ListView1.ListItems.Count
Set List = ListView1.ListItems.Add '(, , UserForm1.TextBox4)

Bu şekilde yazıldığında yanlış işlem yapıyor

ListView1.ListItems(bak).SubItems(0) = TextBox4

Bu şekilde yazıldığında hata veriyor.

 

[Kumpasta]

Selam

aşağıdak ikod işinize yarar diye ümit ediyorum.

Dim item As MSForms.ListItem
Set item = ListView1.ListItems.Add(, , TextBox4.Value)

Eğer ListView1'in diğer sütunlarına da değer eklemek istiyorsanız, aşağıdakine göz atın.

Dim item As MSForms.ListItem
Set item = ListView1.ListItems.Add(, , TextBox4.Value)
item.SubItems(1) = "Değer 2"
item.SubItems(2) = "Değer 3"

 

[seddur]

Dosyadan bakınca daha iyi anlaşılacak.Sorun şu yazdığınız kodu uyguladığım zaman listbox1 den seçilen ürünü listview1'e kaydetiyor fakat aynı ürünü 2.kez tıkladığımda alt satıra ilave ediyor.Halbuki ilk girilen satırda adet miktarının değiştirerek ilave yapması gerekiyor.Yani aynı ürünü alt alta ilave etmemesi gerekiyor.Kodlar bu şekilde yazılı.