求助：请高手帮解决一个查询函数问题

xulanghui

本示例中的，每周价值结果在ACCESS中无法直接得到，请高手帮解决！
（有点类似余额问题）

Henry D. Sy

是excel的问题吗

xulanghui

不是，是要在ACCESS中实现。

Henry D. Sy

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

等等。。。。。。。

Henry D. Sy

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;
   

复制代码

xulanghui

感谢Henry D. Sy 版主，要的就是这个效果{:soso_e179:}{:soso_e113:}