将一个列表视图的结果重新组合到另一个列表视图中

Question

我已经使用listview在userfom中显示了我的数据，现在我想做一个简单的搜索。

使用lvwSubItem，我设法在整个列表中进行搜索，但是例如，对于国家/地区，我有许多与国家/地区有关的条目。

我想将所有结果分组到另一个列表视图中，但我不知道，我在寻找它，但徒劳。

我的代码：

Private Sub search_Click()
    Dim itm As MSComctlLib.listitem

    'Set itm = lists.FindItem(champ.Text, lvwSubItem)
    'for partial search use this:
    Set itm = lists.FindItem(champ.Text, lvwSubItem, , lvwPartial)
    If Not itm Is Nothing Then
        itm.EnsureVisible
        itm.Selected = True
        lists.SetFocus
    End If

我的用户表单就像：