Soru Listboxlar Arası Kayıt Arama, Kopyalama ve Düzenleme Protokolü

[TURKOLOG]

Merhaba herkese 2 adet listboxum var Listboxtaki veriyi işaretlemek sureti ile Listbox2 ye aktarabiliyorum
1. Sorun Ama textara texboxuna ad sıra sicil rütbeden arama yapabiliyorum bulduğum değeri işaretleyince liste normale dönünce işaretli olanlar siliniyor.
2. sorun textara texboxu ile Arama yapmadan listbox1de olan seçimli kayıtları buton yardımı ile Listbox2 ye alıyorum ama aynı kişiler listbox1de çentikli ise çentiği kaldırmadığım için aktar butonuna basınca aynı isimler yeniden Listbox2 ye mükerrer aktarılıyor .

Benim istediğim Listbox1de çentikle seçili olan kayıtlar Listbox2ye aktar butonuna basınca sadece 1 kez geçsin ve textara texboxuna yazıp bulduğum kayıtlara çentik atınca Listbox1de çentikli kalmaya devam etsin

Yardım edebilecek olan varsa çok sevinirim.

 

[TURKOLOG]

Bu konuda yardımcı olabilecek olan var mı ?
Ne kadar denediysem olmadı.

 

[TURKOLOG]

Bendeki taslakta şu sorunlar oluştu :

1-txtAra kutucuğu ile süzme işlemi yaptıktan sonra süzülen veri txtara kutucuğu boşaltılınca siliniyor malesef
2-txtara kutucuğunda süzme işlemi yapıldıktan sonra txtara kutucuğu temizlenmeden listbox1'deki veriyi aktar diyince sadece süzülen ve çentiklenen tek veri listbox2 ye kaydedilirken Listbox2deki mevcut veriler siliniyor ve süzülen tek veri Listbox2 ye geçiyor

3- Listbox2 ye mükerrer kayıt gelmiyor bu kısım oldu.
4-Siciller 6 haneden oluşuyor tek rakam girince silinmiyor ama ben 3 rakam girdikten sonra çentik atıp txtara kutusunu silince çentikler kayboluyor.

 

[TURKOLOG]

Count = ListBox1.ListCount - 1

i = 0
j = 0

Do While i <= Count
j = i + 1
Do While j <= Count
If ListBox1.List(i) = ListBox1.List(j) Then
ListBox1.RemoveItem (j)
Count = ListBox1.ListCount - 1 'Need to update list count after each removal.
End If
j = j + 1
Loop
i = i + 1
Loop

Böyle bir kod var ama adapte edemedim.