在查询里增加一个自动编号字段?

jsf2008

原有的一个查询：（库存查询）里有字段：物料名称,规格, .模具编号, .工程号, .备注,我现只需要在此查询中增加一个自动编号的字段。而不是表？请问有什么办法

narcissus82

参考下

Vista

学习一下！！！！！！！！！！！！！！

huangxiuwen

学习

yori2007

[:50]

wancj

收藏此帖，鼓励奉献！！

zqlgl

ding

jsf2008

Private Sub 自动生成序号_Click()
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


Me.库存数.Requery  '刷新子窗体

End Sub

jsf2008

wang1950317 您好，根据你提供的例子，我做出还有有问题？不知道哪里有问题？

v_tang

没看明白！！！！！！！！！