我要引用最大的两个值

lisashar

我有一报表需引用一查询中的最大和其次的两个值该怎么办呢？注：报表的每一页将使用查询中不同的ID号，即该ID下的两个最大值。
请高手指点[em27]

jiangyi

select * top 2

lisashar

不行呀

Roadbeg

select top 2 欲引用值的字段名 from .... where id=条件
此SQL语句将返回少于2行记录.

lisashar

已参数提供给ID号，然后 select top 2是可以引用2行纪录，可是我怎样在同一个窗体界面或报表界面的不同文本框显示2行的值呢

marco2

窗体:使用連續窗体或是數据表窗体.
報表:与其他的類似.

lisashar

不行，我需要在不同的文本框中显示两列数据，以用于计算，报表中的两列数据也不是放在同一位置的

Roadbeg

设一通用函数返回数据
将文本框1的控件来源设为:   =GetValue(ID,1)
文本框2 的控件来源设为:    =GetValue(ID,2)

Public Function GetValue(ID As Long, Num As Long)
    Dim ReS
    Dim Rs As DAO.Recordset
   
    Set Rs = CurrentDb().OpenRecordset("select top 2 ..... where id=条件...")
    If Rs.RecordCount = 0 Then
        '数据源不存在
        Exit Function
    End If
    If Num = 1 Then
        ReS = Rs(目标字段)
    Else
        If Num = 2 Then
            Rs.MoveNext
            '在此加入代码,以保证在 RS 只有一条记录时不出错
            ReS = Rs(目标字段)
        End If
    End If   
    GetValue = ReS
End Function