分級分類自動往上級統(tǒng)計

Henry D. Sy

會計統(tǒng)計中多數(shù)是末級才輸入數(shù)據(jù)，上級是自動累計的。
需要的網(wǎng)友可以來探討一下。

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 "此函數(shù)只能適應三級統(tǒng)計"
    
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

輕風 發(fā)表于 2011-10-12 15:10
用DSum是不是也可以，還不受級次限制。

謝謝輕風兄提醒！

fjh

感謝分享

WFH6898

太有才了

yangkaifu

高手

灰太郎

123546