分级分类自动往上级统计

Henry D. Sy

会计统计中多数是末级才输入数据，上级是自动累计的。
需要的网友可以来探讨一下。

1. Public Function GetTotal(strNo As String, curAccount As Currency) As Currency
   
2. 
   
3.     Dim rs As New ADODB.Recordset
   
4.     Dim cnn As New ADODB.Connection
   
5.     Dim strSQL As String
   
6.     Dim intQ As Integer
   
7.     Dim curTemp As Currency
   
8.     On Error GoTo GetTotal_Error
   
9. 
   
10.     Set cnn = CurrentProject.Connection
    
11. 
    
12.     intQ = Len(strNo)
    
13. 
    
14.     If curAccount <> 0 Or intQ = 8 Then        '说明其为末级
    
15.         GetTotal = curAccount        '无需累加
    
16.         Exit Function
    
17.     ElseIf intQ = 6 Then
    
18.         strSQL = "SELECT 金额 FROM 科目表 WHERE LEFT(代码,6)='" & strNo & "'"
    
19.     ElseIf intQ = 4 Then
    
20.         strSQL = "SELECT 金额 FROM 科目表 WHERE LEFT(代码,4)='" & strNo & "'"
    
21.     Else
    
22.         MsgBox "此函数只能适应三级统计"
    
23.         Exit Function
    
24.     End If
    
25. 
    
26.     rs.Open strSQL, cnn, adOpenKeyset, adLockOptimistic
    
27. 
    
28.     Do While Not rs.EOF
    
29.         curTemp = curTemp + rs.Fields(0)
    
30.         rs.MoveNext
    
31.     Loop
    
32. 
    
33.     GetTotal = curTemp
    
34. 
    
35.     rs.Close
    
36.     Set rs = Nothing
    
37.     Set cnn = Nothing
    
38. 
    
39.     On Error GoTo 0
    
40.     Exit Function
    
41. 
    
42. GetTotal_Error:
    
43. 
    
44.     MsgBox "Error " & Err.Number & " (" & Err.Description & ")"
    
45. End Function

复制代码

andymark

谢谢分享

tmtony

谢谢技巧分享！

xuwenning

谢谢分享
收藏了

轻风

用DSum是不是也可以，还不受级次限制。

1. SELECT 科目表.代码, 科目表.名称, DSum("[金额]","[科目表]","[代码] Like '" & [代码] & "*'") AS 汇总
   
2. FROM 科目表;

复制代码

Henry D. Sy

轻风 发表于 2011-10-12 15:10
用DSum是不是也可以，还不受级次限制。

谢谢轻风兄提醒！

fjh

感谢分享

WFH6898

太有才了

yangkaifu

高手

灰太郎

123546