两个按钮button1(前一条),button2(后一条), procedure TForm1.Button1Click(Sender: TObject); begin if adoquery1.RecordCount<>0 then begin try adoquery1.Prior; except end; end; end;procedure TForm1.Button2Click(Sender: TObject); begin if adoquery1.RecordCount<>0 then begin try adoquery1.Next; except end; end; end;大哥,你可别耍我。
procedure TForm1.Button1Click(Sender: TObject);
begin
if adoquery1.RecordCount<>0 then
begin
try
adoquery1.Prior;
except
end;
end;
end;procedure TForm1.Button2Click(Sender: TObject);
begin
if adoquery1.RecordCount<>0 then
begin
try
adoquery1.Next;
except
end;
end;
end;大哥,你可别耍我。
开始DBGrid中记录是这样的:
991675|陈某|男|5468|中国
991640|谭某|女|5343|美国
如果第一条记录下移之后,结果就是这样了:
991640|谭某|女|5343|美国
991675|陈某|男|5468|中国
也就是说,第一条记录成了第二条记录,第二条记录成了第一条记录
到底可不可以这样移,可以这样移又是如何来操作,可以这样移会不会影响表的结构,比如:主键等