'BOF 或 EOF 中有一个是“真”，或者当前的记录已被删除，所需的操作要求一个当前的记录

[秋天之落叶]

又一个异常，查了网上的解决方法，加入计数为0时的控制、IsEmpty数据集为空时的判断、EOF判断、加入.first移动（没数据了移动不了啊）等等，都不行，就是没有试补丁，因为10.2的ADO有补丁吗？
ADO.OPEN查询出数据集全集，edit+post修改数据没有任何问题。
使用
dm1.ADO.Filter := '判卷=条件A';
dm1.ADO.Filtered := True;
时，由于修改A->B后，数据表中就会按照filter重新筛选A，被修改的一条记录就不会再次统计进来，也就是加入有2条A，修改第一个A->B后，条件A的记录会显示剩下的一条记录，问题来了，再修改剩下的一条A->B时，这是A就没有了记录，显示错误：
'BOF 或 EOF 中有一个是“真”，或者当前的记录已被删除，所需的操作要求一个当前的记录。

简单说就是：查询出数据集全集，用过滤条件筛除部分记录，修改记录到最后一个时，出现上述错误提示。

有高手遇到过并解决了的吗？
delphi的版本都这么高了，一个低级的BUG还是没有解决？

[秋天之落叶]

哎呀，又出现奇怪现象了，不用RUN编译运行，直接运行EXE文件，竟然不提示上述错误，还以为自行修复了，再次运行RUN错误依旧，再次运行EXE没有错误。 没有修改任何代码，看来是直接运行EXE文件时 if (dm1.ADO判卷.RecordCount > 0) then条件起作用了，RUN的时候，错误在这个条件之后产生？ 这都是哪跟哪啊？ 一脸懵逼啊！

[xiaocongzhi]

这个提示就是你查询的数据集为空，你要对为空作处理

[LETOsoft]

当Filtered=True时修改会触发过滤，所以Post时提示异常。 如果非要纠结这个Debug的警告提示，简单处理下： 1. 关闭过滤（dm1.ADO.Filtered := False;）； 2. 编辑保存（dm1.ADO.Edit; ... dm1.ADO.Post;）； 3. 启用过滤（dm1.ADO.Filtered := True;）。

[lyhoo163]

数据集为空时。不能对集进行读写、浏览操作。 通常回避数据集为空的代码是： if XXADO.RecordCount>0 then

[秋天之落叶]

引用 4 楼 lyhoo163 的回复:

数据集为空时。不能对集进行读写、浏览操作。 通常回避数据集为空的代码是： if XXADO.RecordCount>0 then

试过这个条件，出错行在这个条件之后出现。

[秋天之落叶]

引用 3 楼 wenlovequ 的回复:

当Filtered=True时修改会触发过滤，所以Post时提示异常。 如果非要纠结这个Debug的警告提示，简单处理下： 1. 关闭过滤（dm1.ADO.Filtered := False;）； 2. 编辑保存（dm1.ADO.Edit; ... dm1.ADO.Post;）； 3. 启用过滤（dm1.ADO.Filtered := True;）。

关键是不提交TRUE，过滤不出需要的记录，我的考试系统是先过滤出没有被机器自动判卷的答题，然后人工判卷，判到最后一个记录时，出错，而且使用各种判断条件均不起作用，出错行在判断条件之后出现。

[doloopcn]

DELPHI 没有BUG，这是规则 对数据集进行处理的时候，最好是 if not DataSet.Active then Exit; if DataSet.RecordCount<1 then Exit; //然后才写入你的代码 尽量避免用BOF函数

[秋天之落叶]

引用 7 楼 doloopcn 的回复:

DELPHI 没有BUG，这是规则 对数据集进行处理的时候，最好是 if not DataSet.Active then Exit; if DataSet.RecordCount<1 then Exit; //然后才写入你的代码 尽量避免用BOF函数

在此错误下所有的条件好像都不能正确判断，也不起作用。 procedure TForm1.DBEditEh4KeyPress(Sender: TObject; var Key: Char); var i: Integer; begin if (Key = #13) then begin Key := #0; if dm1.ADO判卷.IsEmpty then Exit; if DBEditEh3.Text < DBEditEh4.Text then //实际得分<标准分 Exit; i := dm1.ADO判卷.RecordCount; if i < 1 then Exit; DBEditEh4Exit(Sender); // edit+post修改问题的标志、结果、判题人、判题方式等 if i = dm1.ADO判卷.RecordCount then // 如果判题后继续满足过滤条件，下移一行，否则因过滤掉一条记录，行次默认首行，防止跳行。【跟踪程序错误提示在此】 if (dm1.ADO判卷.Eof = False) then dm1.ADO判卷.next; DBEditEh4.SetFocus; DBEditEh4.SelectAll; end; end;

[秋天之落叶]

不过，使用 Run Without Debugging（shift+crel+F9）编译运行或直接使用编译好的EXE运行就不提示错误，用 Run （F9）编译运行就提示错误。 所以最后不影响使用，但也挺腻歪的。

[秋天之落叶]

引用 10 楼 victor_yang 的回复:

你一定要过滤后再操作吗？是否可以考虑用locate呢？

习惯用过滤了，没想到会这么多问题，不错的建议，尝试一下，看看是不是可以修改一下。

[秋天之落叶]

引用 10 楼 victor_yang 的回复:

你一定要过滤后再操作吗？是否可以考虑用locate呢？

不方便，Locate是查询定位第一条被查询的记录上，不是形成新的数据集，后期还要处理下一条满足记录的数据，几种数据混在一起，不很方便

[victor_yang]

你一定要过滤后再操作吗？是否可以考虑用locate呢？

[victor_yang]

建议你不要过滤了，直接做成where条件，修改之后再做查询另外一批数据出来修改

[victor_yang]

我的过滤功能一般用在明细查询，统计表里这类不需要修改的地方

[秋天之落叶]

引用 13 楼 victor_yang 的回复:

建议你不要过滤了，直接做成where条件，修改之后再做查询另外一批数据出来修改

没关系了，反正编译后单独运行没有问题。 在一个封闭的数据集中还是比较方便，要总是查询一批修改一批再查询一批，还是比较麻烦的。

[秋天之落叶]

引用 15 楼 wenlovequ 的回复:

// 更新过滤条件字段值 procedure TForm1.Button3Click(Sender: TObject); var ABookmark: string; begin // 开始更新(禁止显示自动刷新) cxGrid1DBTableView1.BeginUpdate; try // 获取位置 ABookmark := qry1.Bookmark; // 关闭过滤 qry1.Filtered := False; // 重新定位 qry1.Bookmark := ABookmark; // 修改数据 qry1.Edit; qry1.FieldByName('CZLX').AsString := '<校-正>'; qry1.Post; finally // 开启过滤 qry1.Filtered := True; // 完成更新 cxGrid1DBTableView1.EndUpdate; end; end;

没用过书签，回头试一试

[LETOsoft]

// 更新过滤条件字段值 procedure TForm1.Button3Click(Sender: TObject); var ABookmark: string; begin // 开始更新(禁止显示自动刷新) cxGrid1DBTableView1.BeginUpdate; try // 获取位置 ABookmark := qry1.Bookmark; // 关闭过滤 qry1.Filtered := False; // 重新定位 qry1.Bookmark := ABookmark; // 修改数据 qry1.Edit; qry1.FieldByName('CZLX').AsString := '<校-正>'; qry1.Post; finally // 开启过滤 qry1.Filtered := True; // 完成更新 cxGrid1DBTableView1.EndUpdate; end; end;

[秋天之落叶]

多谢以上诸位，结贴了