Office中国论坛/Access中国论坛

标题: 求助：请高手帮解决一个查询函数问题 [打印本页]

---

作者: xulanghui    时间: 2012-9-21 11:43
标题: 求助：请高手帮解决一个查询函数问题
[attach]50432[/attach]本示例中的，每周价值结果在ACCESS中无法直接得到，请高手帮解决！
（有点类似余额问题）

---

作者: Henry D. Sy    时间: 2012-9-21 12:39
是excel的问题吗

---

作者: xulanghui    时间: 2012-9-21 13:19
不是，是要在ACCESS中实现。

---

作者: Henry D. Sy    时间: 2012-9-21 13:22

xulanghui 发表于 2012-9-21 13:19
不是，是要在ACCESS中实现。

等等。。。。。。。

---

作者: Henry D. Sy    时间: 2012-9-21 13:41

1. Public Function gValue(strWeek As String) As Double
   
2.     Dim rs As New ADODB.Recordset
   
3.     Dim strSQL As String
   
4.     Dim tempVa As Double, tempVb As Double
   
5. 
   
6.     strSQL = "select top 2 实际价值 from sheet1 where 周期<='" & strWeek & "' order by 周期 desc"
   
7.     rs.Open strSQL, CurrentProject.Connection, adOpenKeyset, adLockReadOnly
   
8. 
   
9.     tempVa = rs(0)
   
10. 
    
11.     If rs.RecordCount <= 1 Then
    
12.         tempVb = 0
    
13.     Else
    
14.         rs.MoveNext
    
15.         tempVb = rs(0)
    
16.     End If
    
17. 
    
18.     gValue = tempVa - tempVb
    
19. 
    
20.     rs.Close
    
21.     Set rs = Nothing
    
22. End Function
    
23. 
    

复制代码

1. SELECT Sheet1.周期, Sheet1.设计价值, Sheet1.实际价值, gValue([周期]) AS 每周价值
   
2. FROM Sheet1;
   

复制代码

[attach]50433[/attach]

---

作者: xulanghui    时间: 2012-9-21 15:16
感谢Henry D. Sy 版主，要的就是这个效果{:soso_e179:}{:soso_e113:}

---

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

Powered by Discuz! X3.3