求助：請(qǐng)高手幫解決一個(gè)查詢函數(shù)問(wèn)題

xulanghui

本示例中的，每周價(jià)值結(jié)果在ACCESS中無(wú)法直接得到，請(qǐng)高手幫解決！
（有點(diǎn)類似余額問(wèn)題）

Henry D. Sy

是excel的問(wèn)題嗎

xulanghui

不是，是要在ACCESS中實(shí)現(xiàn)。

Henry D. Sy

xulanghui 發(fā)表于 2012-9-21 13:19
不是，是要在ACCESS中實(shí)現(xiàn)。

等等。。。。。。。

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 實(shí)際價(jià)值 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. 
    

復(fù)制代碼

1. SELECT Sheet1.周期, Sheet1.設(shè)計(jì)價(jià)值, Sheet1.實(shí)際價(jià)值, gValue([周期]) AS 每周價(jià)值
   
2. FROM Sheet1;
   

復(fù)制代碼

xulanghui

感謝Henry D. Sy 版主，要的就是這個(gè)效果{:soso_e179:}{:soso_e113:}