ListView Control - How Take Data Out of One ListView Control and Put It Into Another ListView Control Please Help

Question

Public Class Form1
'Also Let Me Note - I will actually only want to move an item from lvOriginalList if the PersonAge is (lets say) '21
    'I have a ListView named
    ' lvOriginalList
    'It has the Following Columns
    ' IDNumber
    ' PersonName
    ' PersonAge
    'I have a Second ListView named
    ' lvRemovedList
    'It has the Following Columns
    ' IDNumber
    ' PersonName
    ' PersonAge
    'What I am attempting to do is read a row out of the first listview
    'Compare the IDNUmber, PersonName and PersonAge from out of it (lvOriginalList)
    'And If the Information is not present in the second ListView (lvRemoved) then Move it to it
    'And then Remove that Row from the First one (lvOriginalList)
    'What I have tried:
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        'Populate lvOriginalList with Test Data
        Dim FileNum As Integer = FreeFile()
        Dim lvOriginalListCounter As Integer = 0
        FileOpen(FileNum, "d:\testdata\alphadata.txt", OpenMode.Input)
        lvOriginalList.Items.Clear()
        Do While Not EOF(FileNum)
            Dim OriginalIDNumber As String = ""
            Dim OriginalPersonName As String = ""
            Dim OriginalPersonAge As String = ""
            OriginalIDNumber = LineInput(FileNum)
            OriginalPersonName = LineInput(FileNum)
            OriginalPersonAge = LineInput(FileNum) 
            lvOriginalList.Items.Add(OriginalIDNumber, lvOriginalListCounter)
            lvOriginalList.Items(lvOriginalListCounter).SubItems.Add(OriginalPersonName)
            lvOriginalList.Items(lvOriginalListCounter).SubItems.Add(OriginalPersonAge) 
            lvOriginalListCounter = lvOriginalListCounter + 1
        Loop
        FileClose(FileNum)
    End Sub
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim OriginalIDNumber As String = ""
        Dim OriginalPersonName As String = ""
        Dim OriginalPersonAge As String = ""
        Dim CompareIDNumber As String = ""
        Dim ComparePersonName As String = ""
        Dim ComparePersonAge As String = ""
        Dim NumlvRemovedListItems As Integer = 0
        Dim CompareCounter As Integer = 0
        For Each item As ListViewItem In Me.lvOriginalList.Items
            '1  -   Get A Row Out of lvOriginalList
            OriginalIDNumber = item.Text
            OriginalPersonName = item.SubItems.Item(1).Text
            OriginalPersonAge = item.SubItems.Item(2).Text
            '2  -   Check To See If That Person Is Already  in lvRemovedList
            'Have to check to see if the lvRemovedList list Box is Empty
            NumlvRemovedListItems = lvRemovedList.Items.Count
            If NumlvRemovedListItems = 0 Then
                'the lvRemovedList listbox is empty
                'so add That Person as the first entry into the list box (lvRemovedList)
                lvRemovedList.Items.Add(OriginalIDNumber, NumlvRemovedListItems)
                lvRemovedList.Items(NumlvRemovedListItems).SubItems.Add(OriginalPersonName)
                lvRemovedList.Items(NumlvRemovedListItems).SubItems.Add(OriginalPersonAge)
                'then remove the player from the lvPlayerList listbox
                item.Remove()
            Else
                For Each itemb As ListViewItem In Me.lvRemovedList.Items
                    CompareIDNumber = item.Text
                    ComparePersonName = item.SubItems.Item(1).Text
                    ComparePersonAge = item.SubItems.Item(2).Text
                    If OriginalPersonName = ComparePersonName Then
                        'do nothing that persons name is already in the lvRemovedList list
                    Else
                        'do this because the player is not already in a matchin the lvRemovedList list
                        lvRemovedList.Items.Add(CompareIDNumber, CompareCounter)
                        lvRemovedList.Items(CompareCounter).SubItems.Add(ComparePersonName)
                        lvRemovedList.Items(CompareCounter).SubItems.Add(ComparePersonAge)
                    End If
                Next
            End If
            CompareCounter = CompareCounter + 1
        Next
    End Sub
End Class
'So what Am I doing Wrong
'It is only Removing the First entry out of lvOriginalList (but at least the remaining data is still there and the empty Row is removed)
'And only That first Entry is Appearing in lvRemovedList
'Please Help

Answer 1

Hello,
I have created a simple sample, you could focus on the button click event and edit it to fit your requirements by yourself.
Public Class Form1
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
With ListView1
.View = View.Details
With .Columns
.Add("IDNumber")
.Add("PersonName")
.Add("PersonAge")
End With
With .Items
For index = 20 To 33
.Add("ID" & index, index - 19)
With ListView1.Items(.Count - 1).SubItems
.Add("Name" & index)
.Add(index)
End With
Next
End With
End With
With ListView2
.View = View.Details
With .Columns
.Add("IDNumber")
.Add("PersonName")
.Add("PersonAge")
End With
With .Items
For index = 21 To 22
.Add("ID" & index, index - 19)
With ListView2.Items(.Count - 1).SubItems
.Add("Name" & index)
.Add(index)
End With
Next
End With
End With
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
For Each item As ListViewItem In ListView1.Items
If CInt(item.SubItems(2).Text) < 29 Then
item.Remove()
Dim blContain As Boolean = False
For Each item2 In ListView2.Items
If item2.Text.ToString().Equals(item.Text.ToString()) Then
blContain = True
'Exit For
End If
Next
If Not blContain Then
ListView2.Items.Add(item)
End If
End If
Next
End Sub
End Class
Result.
Regards,
Carl
We are trying to better understand customer views on social support experience, so your participation in this interview project would be greatly appreciated if you have time. Thanks for helping make community forums a great place.
Click
HERE to participate the survey.