Office中国论坛/Access中国论坛

标题: 分级分类自动往上级统计 [打印本页]

---

作者: Henry D. Sy    时间: 2011-10-11 10:56
标题: 分级分类自动往上级统计
会计统计中多数是末级才输入数据，上级是自动累计的。
需要的网友可以来探讨一下。

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

复制代码

[attach]46916[/attach]
[attach]57257[/attach]

---

作者: andymark    时间: 2011-10-11 11:06
谢谢分享

---

作者: tmtony    时间: 2011-10-11 12:35
谢谢技巧分享！

---

作者: xuwenning    时间: 2011-10-12 10:05
谢谢分享
收藏了

---

作者: 轻风    时间: 2011-10-12 15:10
用DSum是不是也可以，还不受级次限制。

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

复制代码

---

作者: Henry D. Sy    时间: 2011-10-12 16:16

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

谢谢轻风兄提醒！

---

作者: fjh    时间: 2015-9-30 17:38
感谢分享

---

作者: WFH6898    时间: 2015-11-4 13:13
太有才了

---

作者: yangkaifu    时间: 2015-11-9 22:26
高手

---

作者: 灰太郎    时间: 2021-8-30 22:13
123546

---

作者: GOODWIN    时间: 2021-11-15 16:38
谢谢分享

---

作者: simonsaq    时间: 2022-2-21 20:43
谢谢分享

---

作者: simonsaq    时间: 2022-2-26 12:16
我的水平还没到看懂的地步

---

作者: simonsaq    时间: 2023-5-24 20:34
太好了，看不懂

---

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

Powered by Discuz! X3.3