var Book, BookStr: string; begin adotable.First; BookStr:=adotable.BookMark; Book:=adotable.FieldBYName('Field').AsString; while adotable.Eof do begin if adotable.FieldByName('Field').AsString>Book then BookStr:=adotable.BookMark; adotable.Next; end; adotable.BookMark:=BookStr;//这条就是最大的记录 end;
Book, BookStr: string;
begin
adotable.First;
BookStr:=adotable.BookMark;
Book:=adotable.FieldBYName('Field').AsString;
while adotable.Eof do
begin
if adotable.FieldByName('Field').AsString>Book then
BookStr:=adotable.BookMark;
adotable.Next;
end;
adotable.BookMark:=BookStr;//这条就是最大的记录
end;
直接写Sql语句写,多方便呀