ACCESS2007中怎么查询某数据倒数第二次出现的位置

bbjam

在这个ACCESS中，用first和last查询某商品第一次和最后一次的销售时间，所得到的结果刚好相反，是怎么回事？另外，我还想查询某商品倒数第二次销售的时间，应该怎么设计查询呢？如果查询倒数第N次的销售时间，又该怎么设计呢？请大神赐教！谢谢

netguestcn

roych

一般倒数第几条记录的做法是先建立一个降序的Top查询（例如，倒数第五条，就Top5），然后再按升序的方法列出第一条即可。如果需要一步到位的话，则把Top查询设置为子查询，详见附件。

bbjam

netguestcn 发表于 2014-7-7 06:16

谢谢

bbjam

roych 发表于 2014-7-7 10:34
一般倒数第几条记录的做法是先建立一个降序的Top查询（例如，倒数第五条，就Top5），然后再按升序的方法列 ...

谢谢

bbjam

netguestcn 发表于 2014-7-7 06:16

数据量稍微大了点，用dlookup查询就很慢，容易卡机

roych

bbjam 发表于 2014-7-8 09:37
数据量稍微大了点，用dlookup查询就很慢，容易卡机

域函数是这样的。建议用ADO好些。

netguestcn

按 roych 版主建议再修改（使用自定义函数）：

roych

netguestcn 发表于 2014-7-9 06:17
按 roych 版主建议再修改（使用自定义函数）：

写得已经很不错了，如果非要改的话，就用用Move代替循环吧。当然，如果不需要分组的话，代码会更简单些许。

1. Public Function LastDate2(ByVal products As String) As Date
   
2.     Dim Rs As New ADODB.Recordset
   
3.     Dim strSQL As String, strWhere As String
   
4.     Dim i As Integer
   
5. 
   
6.     strWhere = "商品  = '" & products & "'"
   
7.     strSQL = "select 销售日期 from 销售表 where " & strWhere
   
8. 
   
9.     Rs.Open strSQL, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
   
10. 
    
11.     'Rs.MoveFirst
    
12.    
    
13.     Rs.MoveLast             '最后一条。
    
14.     Rs.MovePrevious       '倒数第二条。
    
15.     LastDate2 = Rs.Fields(0)
    
16.    ' For i = 1 To Rs.RecordCount
    
17.    '     If Rs.Fields(0) > LastDate2 Then LastDate2 = Rs.Fields(0)
    
18.    '     Rs.MoveNext
    
19.     'Next i
    
20.     Rs.Close
    
21.     Set Rs = Nothing
    
22. End Function
    

复制代码

另一段代码就不按此方式改改就好了。查询条件改一下：

netguestcn

roych 发表于 2014-7-9 12:31
写得已经很不错了，如果非要改的话，就用用Move代替循环吧。当然，如果不需要分组的话，代码会更简单些许 ...

roych 版主改得精辟