[已解决]listview循环添加标题和行

1qazwsx

谢谢，赐教，急急急急急

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2013-1-2 18:57

1. Private Sub AddButton_Click()
   
2.     Dim i As Byte, j As Byte
   
3.     On Error Resume Next
   
4.     With ListView1
   
5.         For i = 1 To 5
   
6.             .ColumnHeaders.Add i, "A" & i, "A" & i, .Width / 5
   
7.         Next
   
8.         For i = 1 To 5
   
9.             .ListItems.Add i, "B" & i, "B" & i
   
10.             For j = 1 To 4
    
11.                 .ListItems(i).SubItems(j) = i & j
    
12.             Next
    
13.         Next
    
14.         .View = lvwReport
    
15. 
    
16.     End With
    
17. 
    
18. End Sub
    
19. 
    
20. Private Sub RestButton_Click()
    
21.     With ListView1
    
22.     .ColumnHeaders.Clear
    
23.     .ListItems.Clear
    
24.     End With
    
25. End Sub
    

复制代码

跳转到最佳答案楼层

hwc2ycy

[已解决]ListView中数据与textbox数据比较
http://www.excelpx.com/thread-287972-1-1.html

hwc2ycy

1. Private Sub AddButton_Click()
   
2.     Dim i As Byte, j As Byte
   
3.     On Error Resume Next
   
4.     With ListView1
   
5.         For i = 1 To 5
   
6.             .ColumnHeaders.Add i, "A" & i, "A" & i, .Width / 5
   
7.         Next
   
8.         For i = 1 To 5
   
9.             .ListItems.Add i, "B" & i, "B" & i
   
10.             For j = 1 To 4
    
11.                 .ListItems(i).SubItems(j) = i & j
    
12.             Next
    
13.         Next
    
14.         .View = lvwReport
    
15. 
    
16.     End With
    
17. 
    
18. End Sub
    
19. 
    
20. Private Sub RestButton_Click()
    
21.     With ListView1
    
22.     .ColumnHeaders.Clear
    
23.     .ListItems.Clear
    
24.     End With
    
25. End Sub
    

复制代码

zjdh

http://www.excelpx.com/thread-214018-1-1.html