ListView1.Checkboxes 问题的

ty_1029

下面是代码，，大概意思是我使用了ListView1.Checkboxes = True，然后用选取命令，选择当前ListView1下的数据记录，并对选中的（  If .ListItems(i).Checked Then）的第5列的数据进行求和，每选择一次该代码会自动计算合计数据，，我需要将该数据返回给一个文本框去。

不会写了，，求大神~~~~~~~~~

1. <p>
   
2. Function hjnum()
   
3. Dim i As Integer
   
4.    Dim k As Integer
   
5.       For i = 1 To ListView1.ListItems.count
   
6.               With ListView1
   
7.              If .ListItems(i).Checked Then
   
8.             k = ListView1.ListItems(i).SubItems(5)      
   
9.             End If
   
10.          End With</p><p>   Next</p><p>End Function
    
11. 
    
12. </p>

复制代码

roych

1. Function hjnum()
   
2. Dim i As Integer
   
3.    Dim k As Integer
   
4.       For i = 1 To ListView1.ListItems.count
   
5.               With ListView1
   
6.              If .ListItems(i).Checked Then
   
7.             k = k+ListView1.ListItems(i).SubItems(5) '这里应该是加上去才能合计的  
   
8.             End If
   
9.          End With
   
10.   Next
    
11. '这里返回值
    
12. hjnum=k
    
13. End Function

复制代码

没有附件，大体只能这样改了。调用时，可以这样写：
dim xx as long
xx=hjnum()

ty_1029

谢谢楼上的，，非常感谢~~~~~~~~~~~~~