Office中国论坛/Access中国论坛

标题: ListView1.Checkboxes 问题的 [打印本页]

---

作者: ty_1029    时间: 2014-12-16 16:25
标题: ListView1.Checkboxes 问题的


下面是代码，，大概意思是我使用了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    时间: 2014-12-16 16:44

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    时间: 2014-12-16 16:52
谢谢楼上的，，非常感谢~~~~~~~~~~~~~

---

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)

Powered by Discuz! X3.3