Office中国论坛/Access中国论坛

标题: 我要引用最大的两个值 [打印本页]

作者: lisashar 时间: 2003-2-7 06:40
标题: 我要引用最大的两个值
我有一报表需引用一查询中的最大和其次的两个值该怎么办呢？注：报表的每一页将使用查询中不同的ID号，即该ID下的两个最大值。
请高手指点[em27]

作者: jiangyi 时间: 2003-2-7 09:14
select * top 2

作者: lisashar 时间: 2003-2-13 06:51
不行呀

作者: Roadbeg 时间: 2003-2-13 19:39
select top 2 欲引用值的字段名 from .... where id=条件
此SQL语句将返回少于2行记录.

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

作者: marco2 时间: 2003-2-14 04:48
窗体:使用連續窗体或是數据表窗体.
報表:与其他的類似.

作者: lisashar 时间: 2003-2-14 05:12
不行，我需要在不同的文本框中显示两列数据，以用于计算，报表中的两列数据也不是放在同一位置的

作者: Roadbeg 时间: 2003-2-14 05:25
设一通用函数返回数据
将文本框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

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