Office中国论坛/Access中国论坛

标题: [求助]如何在查询结果中加入一序号字段，急，请高手赐教 [打印本页]

作者: tzh1600 时间: 2007-6-15 05:35
标题: [求助]如何在查询结果中加入一序号字段，急，请高手赐教
如何在查询结果中加入一序号字段?即第一条记录显示1，依次类推，在线等，先谢谢了

作者: 一点通 时间: 2007-6-15 05:52
请看下这个例子

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

作者: tzh1600 时间: 2007-6-15 06:12
晕，显示

“您无权查看精华帖子”

作者: tz-chf 时间: 2007-6-15 08:05
这个技巧比较好看，我也用过。我用在弹出的检索窗体中，然后用键盘的F1-F12进行选择，就不必用到鼠标了。

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

作者: eyewitnes 时间: 2007-6-15 17:08
为什么不用 rs.AbsolutePosition?

作者: sancai 时间: 2008-5-11 09:13
依然进不去

作者: myj_163 时间: 2008-7-29 15:26
同样进不去

作者: yqxxjymc 时间: 2009-10-15 12:03
同样进不去

作者: zhengjialon 时间: 2009-10-15 12:37
[技巧源码(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 时间: 2011-3-10 11:23

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

你好
发生错误了
[attach]45071[/attach]

作者: sjlou1126 时间: 2011-4-22 03:31
怎么样才能改变自动编号.比如说有些被删了..

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