[求助]如何在查询结果中加入一序号字段，急，请高手赐教

tzh1600

如何在查询结果中加入一序号字段?即第一条记录显示1，依次类推，在线等，先谢谢了

一点通

请看下这个例子

http://www.office-cn.net/forum.php?mod=viewthread&tid=33467&replyID=&skin=1

tzh1600

晕，显示

“您无权查看精华帖子”

tz-chf

这个技巧比较好看，我也用过。我用在弹出的检索窗体中，然后用键盘的F1-F12进行选择，就不必用到鼠标了。

但在2000里面连检索窗体都打不开，也没有条件调试。也有可能是我写的一个函数2000通不过。

eyewitnes

为什么不用    rs.AbsolutePosition?

sancai

依然进不去

myj_163

同样进不去

yqxxjymc

同样进不去

zhengjialon

[技巧源码(A)] [ADO/DAO] 使用ADO代码排序
技巧源码(A)
技巧名称         使用ADO代码排序
技巧简介         使用ADO代码排序
原作者         一点通
来源         Access中国/Office中国
整理者         songhao1013
推荐度         高
难度等级         高
适用版本(A)         Access2000 Access2002 Access2003 Access2007
分类(A)         ADO/DAO
近期发现有些帖子提问关于自排序号,并将结果保存到表的问题,今天制作了一个小程序,希望能对你有帮助,当然我说的自排序号并不能修改系统中的"自动编号"。
    Dim rs As Recordset, y As Double  '声明变量及设定参数
    Set rs = New ADODB.Recordset  '初始化参数
    rs.ActiveConnection = CurrentProject.Connection  '把 rs 参数设定并连接
    rs.Open "排序查询", , adOpenKeyset, adLockOptimistic '使用一个普通查询先对数据按要求排序     
    rs.MoveFirst  '指针指到第一条记录     
    y = 0  '初始化排序   
    Do Until rs.EOF = True  '对数据循环计算,直到最后一条记录为止  
        rs!自排序号 = 1 + y   
        rs.Update '将排序结果存放到表中   
        y = rs!自排序号 '重新设定 y 值   
        rs.MoveNext '指针跳到下一条记录
    Loop  '继续:  Do Until rs.EOF = True
    rs.Close '计算完毕清除内存记录
    Set rs = Nothing

kent_73

zhengjialon 发表于 2009-10-15 12:37
[技巧源码(A)] [ADO/DAO] 使用ADO代码排序
技巧源码(A)
技巧名称         使用ADO代码排序

你好
发生错误了