如何将ListView1一行记录添加到另一个ListView2 并删除ListView1该行数据？

Question

On Error Resume Next
Dim i, j As Integer
Dim sss As ListItem
  For i = ListView1.ListItems.Count To 1 Step -1
          If ListView1.ListItems(i).Checked = True Then
                  Set sss = ListView2.ListItems.Add(, "A" & i, ListView1.ListItems(i).Text)
                  For j = 1 To ListView1.ColumnHeaders.Count - 1
                          sss.SubItems(j) = ListView1.ListItems(i).SubItems(j)
                  Next j
                '  ListView1.ListItems.Remove (i)
          End If
  Next i
这样不行？？？？

Answer 1

with listview1.selecteditem
   listview2.listitems.add ,.key,.text,.icon,.smallicon'第2个读取第一个的选择值复制到第2个控件
   listview1.listitems.remove(.index)'第1个删除
   listview1.refresh'控件1刷新,可以不写
end with

Answer 2

只能晚上 zyg01234#hotmail.com #替换成@

Answer 3

'这个就是你上面那段改完了的代码
  with ListView1.selecteditem
   listview2.listitems.add ,.key,.text,.icon,.smallicon'第2个读取第一个的选择值复制到第2个控件
  ' ListView1.listitems.remove(.index)'第1个删除
 'ListView1.refresh'控件1刷新,可以不写
end with
  

Answer 4

If ListView1.ListItems(i).Checked = True Then
                  Set sss = ListView2.ListItems.Add(, "A" & i, ListView1.ListItems(i).Text)
                  For j = 1 To ListView1.ColumnHeaders.Count - 1
                          sss.SubItems(j) = ListView1.ListItems(i).SubItems(j)
                  Next j
                '  ListView1.ListItems.Remove (i)
          End If
改了还是不行呀

Answer 5

If ListView1.ListItems(i).Checked = True Then不需要我的代码直接替换你的

Answer 6

和那没关系
主要是
Set sss = ListView2.ListItems.Add(, "A" & i, ListView1.ListItems(i).Text)

Answer 7

ListView2.ListItems.Add没有返回值  
with listview1.selecteditem
   listview2.listitems.add ,.key,.text,.icon,.smallicon'第2个读取第一个的选择值复制到第2个控件
   listview1.listitems.remove(.index)'第1个删除
   listview1.refresh'控件1刷新,可以不写
end with
  

Answer 8

listview2.listitems.add  , "A" & i, ListView1.ListItems(i).Text
不对

Answer 9

你不要改你的代码 把
On Error Resume Next
Dim i, j As Integer
Dim sss As ListItem
  For i = ListView1.ListItems.Count To 1 Step -1
          If ListView1.ListItems(i).Checked = True Then
                  Set sss = ListView2.ListItems.Add(, "A" & i, ListView1.ListItems(i).Text)
                  For j = 1 To ListView1.ColumnHeaders.Count - 1
                          sss.SubItems(j) = ListView1.ListItems(i).SubItems(j)
                  Next j
                '  ListView1.ListItems.Remove (i)
          End If
  Next i替换成
ListView2.ListItems.Add没有返回值  
with listview1.selecteditem
   listview2.listitems.add ,.key,.text,.icon,.smallicon'第2个读取第一个的选择值复制到第2个控件
   listview1.listitems.remove(.index)'第1个删除
   listview1.refresh'控件1刷新,可以不写
end with
  
其实不需要循环实现的你是一次选择多个吗

Answer 10

这样不行
  .key 提示是空值

Answer 11

哥们就是上面那段
要求
能把listview1的内容复制到listview2就可以了