Question

VB 记录删除,字段自动更新

If Adodc1.Recordset.RecordCount > 0 Then
Dim n
n = MsgBox("删除后不可以恢复,确定要删除吗?", 33, "信息")
If n = vbOK Then
Adodc1.Recordset.Delete
Adodc1.Recordset.Update
Do While Adodc1.Recordset.EOF = False
Adodc1.Recordset.MoveNext
Adodc1.Recordset.Fields ("num") - 1 'num是序列号
Adodc1.Recordset.Update
Loop
End If
End If
*序列号是按升序排列的。从1到n
*如果我从datagrid中间删除序列号为14的一条记录,那么sql数据库序列号为14以后的记录自动更新，后面的记录向前摞动一位！就是15变14，16变15....
*Adodc1.Recordset.Fields ("num") - 1出错了，要怎么改呢？
*请教各位老师帮帮忙!

Answer 1

Adodc1.Recordset.Update
Adodc1.Recordset.movefirst
i=1
Do While Adodc1.Recordset.EOF = False
Adodc1.Recordset.Fields ("num") =i
Adodc1.Recordset.MoveNext
i=i+1
Loop
Adodc1.Recordset.Update