移动纪录的代码:
if key=VK_UP  then
begin
self.ADO_CLIENT.Prior;
Edit1.Text :=inttostr(DBGrid1.DataSource.DataSet.RecNo);
end;
if key=VK_UP  then
begin
self.ADO_CLIENT.next;
Edit1.Text :=inttostr(DBGrid1.DataSource.DataSet.RecNo);
end;
显示当前纪录的代码:其中:
DBGrid指向的datasource组件是连接到了名为ADO_CLIENT的ADOQuery组件上,ADO_CLIENT的sql语句为SELECT * FROM tb_Client
编译能通过,运行是键盘的上下箭头都是一次走两个.并且第一条和末一条还不大对:从第一条一按向下的箭头时Edit1显示第二条,但是已经实际到了第三条.
我对DBGrid编写了单击事件用DBGrid1.DataSource.DataSet.RecNo显示位置是正确的有趣的是我对左右的箭头没编码,它却能移动一条纪录,只是Edit1不显示.
哪位高手知道问题出在哪里了?