如何根据条件让指针自动指向一条记录
如图
当我要删除一条记录是 我是输入该条记录的编号 再进行删除
现在的问题是 当我输入了编号后 指针自动指向那一条记录
如 我输入1593 然后按删除 然后指针自动选择1593那一行
请问有什么办法可以实现 谢谢大家
如果可以实现 请给出代码 谢谢
[解决办法]
Dim n As Integer
While Not Adodc1.Recordset.EOF
If Adodc1.Recordset.Fields(0).Value = Txt1.Text Then
n = Adodc1.Recordset.AbsolutePosition
Adodc1.Recordset.Delete
Adodc1.Refresh
Adodc1.Recordset.Move n - 1 '移动到当前记录，即删前的下一条位置
End If
Adodc1.Recordset.MoveNext
Wend
Txt1用于接收输入的编号，当然我在这没对其有效性作检测，不知道类型及长度，你自己弄吧。
有需要的话，告诉我，对于Adodc.RecordSet的指针操作，是琢磨很久了。
另外，这还不是很完善。比如指针到达EOF时没移到第一条或最后一条，你自己弄吧
