VB编程：DataGrid刷新后重新定位到DataGrid操作行

Question

DataGrid是通过adodc1连接到access数据库的。进行如下操作后，记录回到了datagrid的第一行Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\pacs\PATIENT1.MDB;Persist Security Info=False"Adodc1.RecordSource = "select * from dengji where 检查日期 =#" + Str(DTPicker1.Value) + "# "
Adodc1.Refresh我想返回到操作前的行。该如何做？

Answer 1

Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\pacs\PATIENT1.MDB;Persist Security Info=False"Adodc1.RecordSource = "select * from dengji where 检查日期 =#" + Str(DTPicker1.Value) + "# "Dim X As Variant
X = Adodc1.Recordset.Bookmark
Adodc1.RefreshAdodc1.Recordset.Bookmark = X很简单就实现了.用BookMark属性.在刷新前记录BookMark,刷新后把那个BookMark值赋值回去就完成了.VB6测试通过.

Answer 2

代码没问题啊，只要你在DTPicker1中选择一个日期 就会返回符合日期的记录啊