1)打开Delphi中的DBClient.pas文件,在TCustomeClientDataSet的Private部分添加FSaveAllRecords:Boolean; 2)在Public部分添加 property SaveAllRecords:Boolean read FSaveAllRecords Write FSaveAllRecords Default False; 3)查找 TCustomClientDataSet.WriteDataPacket(Stream: TStream; WriteSize: Boolean; Format: TDataPacketFormat = dfBinary); begin if Active then CheckBrowseMode; if IsCursorOpen then begin if FSaveAllRecords then //手动加上 CheckProviderEOF; SaveDataPacket(Format); end; .......... 4)保存后并覆盖,就可以用。