两个listview（listbox）如何实现数据的相互交互

Question

网上的有关于两个listbox的数据交互例子倒是有，但是listbox不能有多列，所以想到listview，不知道哪位大侠有做过这方面的研究或看到过相关的例子，帮帮忙吧。

Answer 1

不就左边的listbox中的记录项一点击然后这个记录就会跑到右边的listbox中

Answer 2

'初始化控件
Private Sub Form_Load()
   Dim i As Integer
   
   ListView1.FullRowSelect = True
   ListView1.GridLines = True
   ListView1.View = lvwReport
   
   ListView2.FullRowSelect = True
   ListView2.GridLines = True
   ListView2.View = lvwReport
   
   ListView1.ColumnHeaders.Clear
   ListView1.ColumnHeaders.Add , , "序号"
   ListView1.ColumnHeaders.Add , , "描述"
   
   ListView2.ColumnHeaders.Clear
   ListView2.ColumnHeaders.Add , , "序号"
   ListView2.ColumnHeaders.Add , , "描述"
   
   For i = 0 To 99
      ListView1.ListItems.Add , , i + 1
      ListView1.ListItems(i + 1).ListSubItems.Add , , "第一列；第" & i & "行"
   Next i
End Sub
'点击添加到Listveiw2中
Private Sub ListView1_Click()
   Dim nSelectRow As Integer
   Dim nExistRow As Integer
   
   If ListView1.ListItems.Count < 1 Then
      Exit Sub
   End If
   nSelectRow = ListView1.SelectedItem.Index
   
   nExistRow = ListView2.ListItems.Count
   nExistRow = nExistRow + 1
   ListView2.ListItems.Add , , ListView1.ListItems(nSelectRow).Text
   ListView2.ListItems(nExistRow).ListSubItems.Add , , ListView1.ListItems(nSelectRow).ListSubItems(1).Text
   
End Sub'点击 移除
Private Sub ListView2_Click()
   
   If ListView2.ListItems.Count < 1 Then
       Exit Sub
   End If
   
   ListView2.ListItems.Remove (ListView2.SelectedItem.Index)
End Sub