求助：如何重置子窗体中“排序”的数字？

linjingdr

背景资料：窗体1中的子窗体数据已按“排序”的升序方式进行显示。因为有时会删除部分记录，所以“排序”的数字并不连续。
求助内容：
想在窗体上设置一个按键，点击后，可以按现有显示顺序，把排序的数字按自然数1、2、3...重新设置（数字连续不重复）。
请在上传的数据库上做个示例吧，阿门！

盗梦

排序重置，这个简单啊！用ADO对逐条记录循环更新

盗梦

1. Private Sub Command4_Click()
   
2.     Dim strSql As String
   
3.     Dim rs As New ADODB.Recordset
   
4.    
   
5.     '按照排序字段打开记录集
   
6.     strSql = "select 排序 from tabNAME order by 排序"
   
7.     rs.Open strSql, CurrentProject.Connection, 1, 3
   
8.         Do While Not rs.EOF
   
9.             rs(0) = rs.AbsolutePosition '利用记录的位置，为排序更新
   
10.             rs.Update
    
11.             rs.MoveNext
    
12.         Loop
    
13.     rs.Close
    
14.     Set rs = Nothing
    
15.    
    
16.     Me.[tabNAME 子窗体].Requery '刷新子窗体
    
17. End Sub

复制代码

todaynew

dim ssql as string
ssql="update 阁下的数据表名称 as a set a.排序=(select count(b.*) from 阁下的数据表名称 as b where b.排序<=a.排序)"
CurrentDb.Execute ssql
或：
dim ssql as string
ssql="update 阁下的数据表名称 set 排序=dcount('*','阁下的数据表名称','排序<=' & [排序])"
CurrentDb.Execute ssql

linjingdr

非常感谢！成功解决问题。