delphi AOD insert(新增行后,行位置保持不变) procedure TForm.ADOQuery1DataAfterOpen(DataSet: TDataSet); begin inherited; //添加排序规则即可实现,insert 新增后,行的位置不变 ADOQuery1.Sort:=‘barcodeSeq , companyNo, createdDateTime, typeNo’; end;