[已解决]如何将L1的数据，全部添加到L2中~！@？

80013025

ListVi1.rar (18.15 KB, 下载次数: 4)

2017-1-20 09:45 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

grf1973

2017-1-20 13:08

1. Private Sub CommandButton1_Click()   '全部向下添加
   
2.     For k = 1 To Me.ListView1.ListItems.Count
   
3.         With Me.ListView2.ListItems.Add
   
4.             .Text = k
   
5.             For j = 1 To 9
   
6.                 .SubItems(j) = Me.ListView1.ListItems(k).SubItems(j)
   
7.             Next
   
8.         End With
   
9.     Next
   
10. End Sub

复制代码

跳转到最佳答案楼层

grf1973

1. Private Sub CommandButton1_Click()   '全部向下添加
   
2.     For k = 1 To Me.ListView1.ListItems.Count
   
3.         With Me.ListView2.ListItems.Add
   
4.             .Text = k
   
5.             For j = 1 To 9
   
6.                 .SubItems(j) = Me.ListView1.ListItems(k).SubItems(j)
   
7.             Next
   
8.         End With
   
9.     Next
   
10. End Sub

复制代码