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

bajifeng

>>>>>>>>>>>>>>

鄂龙蒙

bajifeng 发表于 2016-1-14 11:18
>>>>>>>>>>>>>>

谢谢了！但还有一个问题：ListView2中标题每添加一个就增加了两列，怎么处理？再次谢谢！

鄂龙蒙

bajifeng 发表于 2016-1-14 11:16

这里找到了，但是还是有点问题，能请您帮改一下吗？谢谢！
添加到ListView2的行数据为什么不全了.rar (19.8 KB, 下载次数: 70)

2016-1-14 11:54 上传

点击文件名下载附件

bajifeng

鄂龙蒙 发表于 2016-1-14 11:49
谢谢了！但还有一个问题：ListView2中标题每添加一个就增加了两列，怎么处理？再次谢谢！

哦，ListView2中标题每添加一个就增加了两列
好的，我马上查查问题。

bajifeng

1. Dim dn%
   
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. For Each ck In ListView1.ListItems
   
7.     m = m + 1
   
8.     If ck.Checked Then
   
9.         n = n + 1
   
10.         s(n, 1) = n
    
11.         s(n, 2) = ListView1.ListItems(m)
    
12.     End If
    
13. Next
    
14. With ListView2
    
15.     .ListItems.Clear
    
16.     For i = 1 To UBound(s)
    
17.         Set Itm = .ListItems.Add()
    
18.         Itm.Text = s(i, 1)
    
19.         Itm.SubItems(1) = s(i, 2)
    
20.     Next i
    
21. End With
    
22. End Sub
    
23. 
    
24. Private Sub UserForm_Initialize()
    
25. Dim arr, a, d, i, t, k
    
26. Set d = CreateObject("scripting.dictionary")
    
27. 
    
28. With Sheets("sheet1")
    
29.     a = .Range("D2").End(xlDown).Row
    
30.     arr = .Range("D2:D" & a)
    
31.     For i = 2 To UBound(arr)
    
32.         d(arr(i, 1)) = ""
    
33.     Next i
    
34.     k = d.keys
    
35.     t = d.items
    
36.     dn = d.Count
    
37. End With
    
38. 
    
39. With ListView1
    
40.     Dim Itm
    
41.     .ListItems.Clear
    
42.     .ColumnHeaders.Add , , "凭证号码", 50
    
43.     .View = lvwReport
    
44.     .FullRowSelect = True
    
45.     .Gridlines = True
    
46.     .MultiSelect = True
    
47.     .CheckBoxes = True
    
48.     For i = 0 To UBound(k)
    
49.         Set Itm = .ListItems.Add()
    
50.         Itm.Text = k(i)
    
51.     Next i
    
52. End With
    
53. 
    
54. With ListView2
    
55.     .ListItems.Clear
    
56.     .ColumnHeaders.Add , , "序号", 30
    
57.     .ColumnHeaders.Add , , "凭证号码", 50
    
58.     .View = lvwReport
    
59.     .FullRowSelect = True
    
60.     .Gridlines = True
    
61. End With
    
62. End Sub

复制代码

bajifeng

问题已经解决，
看附件。

鄂龙蒙

bajifeng 发表于 2016-1-14 13:56
问题已经解决，
看附件。

谢谢！就是要的这个效果。

再请教：要将选出的ListView2中“凭证号码”列返回一维数组，怎么取出？

bajifeng

鄂龙蒙 发表于 2016-1-14 14:10
谢谢！就是要的这个效果。

再请教：要将选出的ListView2中“凭证号码”列返回一维数组，怎么取出？

“凭证号码”列返回一维数组，怎么取出？
是给你写在程序里，还是给你写入单元格呢？

鄂龙蒙

bajifeng 发表于 2016-1-14 14:44
“凭证号码”列返回一维数组，怎么取出？
是给你写在程序里，还是给你写入单元格呢？

“凭证号码”列返回一维数组想写在程序里，下面程序备用。

不好意思，又麻烦您。

bajifeng

鄂龙蒙 发表于 2016-1-14 15:01
“凭证号码”列返回一维数组想写在程序里，下面程序备用。

不好意思，又麻烦您。

恩，好的
那就按你的要求，写在程序里吧。