如何防止 TADORecordset 滚动?

Wod*_*dzu 2 delphi ado recordset

我想根据某些条件阻止 ADORecordset 的滚动。

例如,做这样的事情会很方便:

procedure TfrmMain.qryCenyBeforeScroll(DataSet: TDataSet);
begin
  if not (condition) then
    qryCeny.DoNotScroll;  //Just the idea
end;
Run Code Online (Sandbox Code Playgroud)

这该怎么做?

Ond*_*lle 5

您可以引发异常,例如:

if not (condition) then
  Abort;
Run Code Online (Sandbox Code Playgroud)