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

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

zqlgl

ding

wancj

收藏此帖，鼓励奉献！！

yori2007

[:50]

huangxiuwen

学习

Vista

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

narcissus82

参考下