Listview aktarma kontrolu hk.

[kemal turan]

Merhaba,
Aşağıdaki kodla listview 2 den listview 3 e aktarma yapıyorum.
Birincil değer benzersiz Id numaradır.
Sorum: bir satırın listview3 e ikinci defa aktarılmasını eklenmesini engellemektir.
If koşulu ile kontrolu nasıl yapailirim.
Teşekkür ederim.

Private Sub ListView2_DblClick()
Dim sevk As ListItem
Set sevk = ListView3.ListItems.Add(Text:=ListView2.SelectedItem)
sevk.SubItems(1) = ListView2.SelectedItem.SubItems(1)
sevk.SubItems(2) = ListView2.SelectedItem.SubItems(2)
sevk.SubItems(3) = ListView2.SelectedItem.SubItems(3)

 

[kemal turan]

sadece bu veride kontrol yapacak.

sevk.SubItems(1) = ListView2.SelectedItem.SubItems(1)

 

[PLİNT]

Merhaba
Aşağıdaki gibi denermisiniz?

Private Sub ListView2_DblClick()
Dim sevk As ListItem, s As Long, a As Long
s = ListView3.ListItems.Count
If s <> 0 Then
For a = 1 To s
If ListView3.ListItems(a).Text = ListView2.SelectedItem.Text Then Exit Sub
Next
End If
Set sevk = ListView3.ListItems.Add(Text:=ListView2.SelectedItem)
sevk.SubItems(1) = ListView2.SelectedItem.SubItems(1)
sevk.SubItems(2) = ListView2.SelectedItem.SubItems(2)
sevk.SubItems(3) = ListView2.SelectedItem.SubItems(3)
End Sub

İsterseniz aşağıdaki şekildede aktarılan satır "Listview2" den silinebilir

Private Sub ListView2_DblClick()
Dim sevk As ListItem

Set sevk = ListView3.ListItems.Add(Text:=ListView2.SelectedItem)
sevk.SubItems(1) = ListView2.SelectedItem.SubItems(1)
sevk.SubItems(2) = ListView2.SelectedItem.SubItems(2)
sevk.SubItems(3) = ListView2.SelectedItem.SubItems(3)
ListView2.ListItems.Remove (ListView2.SelectedItem.Index) '<------------
End Sub

 

[kemal turan]

Sn. Plint merhaba,
Çok teşekkür ederim.Bilgi ve emeğinize sağlık.
Selametle kalınız.

 

[TURKOLOG]

Merhaba Hocam aynı durum bende de var 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

Private Sub CommandButton1_Click()
    
     Dim c, iL1, sut, iL1Sut As Integer
    c = 0
        For iL1 = 1 To ListBox1.ListCount - 1
    If ListBox1.Selected(iL1) = True Then
        c = c + 1
iL1Sut = ListBox1.ColumnCount - 1
    With ListBox1
         ListBox2.AddItem .list(iL1, 0), 0
    For sut = 1 To iL1Sut
        ListBox2.list(0, sut) = .list(iL1, sut)
    Next sut
    End With
        End If
    Next iL1
  
  
   Label1 = ListBox2.ListCount
End Sub