求助 VB 数据删除问题

Question

 怎样listview1里的重复数据一同删除呢

Answer 1

Private Sub Command1_Click()
    Dim i As Integer
    Dim j As Integer
   k = ListView1.ListItems.Count
   
    For i = 1 To ListView1.ListItems.Count
          For j = i + 1 To ListView1.ListItems.Count
          If j > ListView1.ListItems.Count Then Exit For
         If ListView1.ListItems.Item(i) = ListView1.ListItems.Item(j) Then
                ListView1.ListItems(j).Text = ""
                 End If
        Next j
    Next i
    l = 1
 Do
If l > ListView1.ListItems.Count Then Exit Do
If ListView1.ListItems(l).Text = "" Then
ListView1.ListItems.Remove l
End If
l = l + 1
Loop
End SubPrivate Sub Form_Load()
 ListView1.ColumnHeaders.Add , , "数据"
 ListView1.View = lvwReport
    With ListView1
        .ListItems.Add , , "123"
        .ListItems.Add , , "456"
        .ListItems.Add , , "123"
        .ListItems.Add , , "456"
        .ListItems.Add , , "353"
        .ListItems.Add , , "123"
        .ListItems.Add , , "456"
        .ListItems.Add , , "123"
        .ListItems.Add , , "123"
      End With
       
    End Sub