zhaogang1960的电话薄管理系统，想添加几个合计，已解决，谢谢zhaogang老师

fgwei

zhaogang1960的电话薄管理系统，想添加几个合计，谢谢

zhaogang1960

1. Public Sub 显示数据(strsql As String) '为ListView1设置各行数据
   
2.     Dim i&, j&, 小盒用量#, 条盒用量#, 千箱用量#, 金额#
   
3.     On Error Resume Next
   
4.     Set rs = New ADODB.Recordset
   
5.     rs.Open strsql, cnn, adOpenKeyset, adLockOptimistic
   
6.     With ListView1
   
7.         .ListItems.Clear
   
8.         For i = 1 To rs.RecordCount
   
9.             .ListItems.Add , , rs.Fields(0).Value
   
10.             For j = 1 To rs.Fields.Count - 1
    
11.                 .ListItems(i).SubItems(j) = rs.Fields(j).Value
    
12.             Next j
    
13.             小盒用量 = 小盒用量 + rs.Fields(3).Value
    
14.             条盒用量 = 条盒用量 + rs.Fields(4).Value
    
15.             千箱用量 = 千箱用量 + rs.Fields(2).Value
    
16.             金额 = 金额 + rs.Fields(5).Value
    
17.             rs.MoveNext
    
18.         Next i
    
19.     End With
    
20.     rs.MoveFirst
    
21.     Label2.Caption = "共找到 " & ListView1.ListItems.Count & " 条记录"
    
22.     Label21.Caption = Application.Round(小盒用量, 2)
    
23.     Label22.Caption = Application.Round(条盒用量, 2)
    
24.     Label23.Caption = Application.Round(千箱用量, 2)
    
25.     Label24.Caption = 金额
    

复制代码

zhaogang1960

附件………………………………………………
用量1.rar (74.91 KB, 下载次数: 62)

2015-12-6 16:32 上传

点击文件名下载附件

fgwei

真没想到赵老师那么快，真是又快又好，太感谢了，谢谢赵老师

runzy

zhaogang1960 发表于 2015-12-6 16:32
附件………………………………………………

赵老师好！这是当初您帮忙写的VBA，为什么在64位excel（2013版）中不能用了，如果方便请进该帖http://club.excelhome.net/forum. ... p;page=1#pid8494395帮忙解决一下，万分感谢