下面这一段程序是有关记录删除的,主要是当点上一条下一条记录时,把记录的各字段显示的窗体的文本框当中,当我点删除记录时就执行下面的程序.可我删除一条记录后,当点上一条记录这个按钮时,可是我删除的记录怎么还能显示在窗体的文本框中呢,当我重新打开程序时,这条记录是已经不在了的,可我已经用了update了啊,难道不能立即更新的吗.还有一个问题想问的是当我删除掉一条记录后,这个记录集的指针是指向哪里的,是指向删除记录的后面一条还是上面一条啊//

Private Sub cmddel_Click()'删除当前记录
Dim name1 As String
rs.MoveNext
If rs.EOF Then
rs.MovePrevious
rs.MovePrevious
If rs.BOF Then '如果数据库中只有一条记录
MsgBox ("无记录")
Call cleardata '该函数的作用是使窗体中的文本框清空
rs.MoveNext
rs.Delete adAffectCurrent
rs.Update
Exit Sub
Else
name1 = rs("姓名")
rs.MoveNext
rs.Delete adAffectCurrent

End If
Else
name1 = rs("姓名")
rs.MovePrevious
rs.Delete adAffectCurrent

End If

rs.Update

txtsql = "select * from jlb"
Set rs = ExecuteSQL(txtsql)

Do While rs("姓名") <> name1
rs.MoveNext
Loop
Call viewdata ''该函数的作用是把记录的各字段写入到文本框中去
End Sub

[此贴子已经被作者于2007-4-2 8:50:49编辑过]