请教ListView1选择行添加到ListView2的实例

bajifeng

1. Dim dn%, lr()
   
2. Private Sub ListView1_ItemCheck(ByVal Item As MSComctlLib.ListItem)
   
3. 'by bajifeng
   
4. Dim m, n, i
   
5. ReDim s(1 To dn, 1 To 2)
   
6. 
   
7. For Each ck In ListView1.ListItems
   
8.     m = m + 1
   
9.     If ck.Checked Then
   
10.         n = n + 1
    
11.         s(n, 1) = n
    
12.         s(n, 2) = ListView1.ListItems(m)
    
13. 
    
14.     End If
    
15. Next
    
16. 
    
17. Erase lr
    
18. ReDim lr(1 To UBound(s))    '"凭证号码"数组
    
19. 
    
20. With ListView2
    
21.     .ListItems.Clear
    
22.     For i = 1 To UBound(s)
    
23.         Set Itm = .ListItems.Add()
    
24.         Itm.Text = s(i, 1)
    
25.         Itm.SubItems(1) = s(i, 2)
    
26.         lr(i) = s(i, 2)             '"凭证号码"数组
    
27.         Debug.Print lr(i)
    
28.     Next i
    
29. End With
    
30. '==============='"凭证号码"数组 验证 开始============
    
31. On Error Resume Next
    
32. Columns(5) = ""
    
33. [e1].Resize(n, 1) = Application.Transpose(lr) '"凭证号码"数组 验证
    
34. '==============='"凭证号码"数组 验证 结束============
    
35. End Sub
    
36. 
    
37. Private Sub UserForm_Initialize()
    
38. Dim arr, a, d, i, t, k
    
39. Set d = CreateObject("scripting.dictionary")
    
40. 
    
41. With Sheets("sheet1")
    
42.     a = .Range("D2").End(xlDown).Row
    
43.     arr = .Range("D2:D" & a)
    
44.     For i = 2 To UBound(arr)
    
45.         d(arr(i, 1)) = ""
    
46.     Next i
    
47.     k = d.keys
    
48.     t = d.items
    
49.     dn = d.Count
    
50. End With
    
51. 
    
52. With ListView1
    
53.     Dim Itm
    
54.     .ListItems.Clear
    
55.     .ColumnHeaders.Add , , "凭证号码", 50
    
56.     .View = lvwReport
    
57.     .FullRowSelect = True
    
58.     .Gridlines = True
    
59.     .MultiSelect = True
    
60.     .CheckBoxes = True
    
61.     For i = 0 To UBound(k)
    
62.         Set Itm = .ListItems.Add()
    
63.         Itm.Text = k(i)
    
64.     Next i
    
65. End With
    
66. 
    
67. With ListView2
    
68.     .ListItems.Clear
    
69.     .ColumnHeaders.Add , , "序号", 30
    
70.     .ColumnHeaders.Add , , "凭证号码", 50
    
71.     .View = lvwReport
    
72.     .FullRowSelect = True
    
73.     .Gridlines = True
    
74. End With
    
75. End Sub

复制代码

bajifeng

》》》》》》》》》》

bajifeng

动态数组记录在 lr 里
要验证就看E列 ，不需要验证去掉 31-33 行

这个案例需要演示一下：

YANG2020

bajifeng 发表于 2016-1-14 15:31
动态数组记录在 lr 里
要验证就看E列 ，不需要验证去掉 31-33 行

请问如果有3列数据的话怎么实现？我研究你这个好久，没成功。能帮忙做一下吗？非常感谢。

YANG2020

bajifeng 发表于 2016-1-14 15:29
》》》》》》》》》》

请问如果有3列数据怎么实现？谢谢啦