给查询的某供应商每条记录编一个ID号,字段D是供应商名称
use jxc  &&包含非常多供应商的记录
md="某供应商"
SET FILT TO d=md
SCAN
IF ID=0
SELECT MAX(ID) FROM jxc WHERE d=md INTO ARRAY IDH
REPLACE ID WITH IDH+1
ENDI
ENDSCAN

当记录非常多时，耗时长，请问各位大神如何优化

[此贴子已经被作者于2015-11-26 14:38编辑过]

如果我没有理解错的话，应该是酱紫的：

use jxc
md="某供应商"
* SCAN
SELECT MAX(ID) FROM jxc WHERE d=md INTO ARRAY IDH
REPLACE ID WITH IDH+1 All
* ENDSCAN

看你这段代码的意思，d应该是表文件里的一个字段名，指向供应商的名字。然后需要把各供应商的ID都变成相关的目前最大号+1。是不是这样？

如果不是这样，请说明一下SELECT-SQL命令中的“d”是什么意思；如果是这样，我对作为查询条件标准的md变量是一个固定值有点不理解，也请说明一下。我觉得只有这两件事搞清楚了，才可能想出合理的代码。

D是供应商名称没错

楼主的问题没有说清楚，无法帮助你！
最好举例说明.............

USE jxc
md = "某供应商"
CALC MAX(id) TO nMax FOR d = md
SCAN FOR d = md AND id = 0
    REPLACE ID WITH nMax + 1
    nMax = nMax + 1
ENDSCAN

简化成
use jxc
SCAN
IF ID=0
SELECT MAX(ID) FROM jxc INTO ARRAY IDH
REPLACE ID WITH IDH+1
ENDI
ENDSCAN
如何优化

我明白了，取最大号不用放入SCAN重复取最大号，而用nMax = nMax + 1
替代，这样可以加快速度，谢谢liuxingang28

[此贴子已经被作者于2015-11-26 15:20编辑过]

不用这么麻烦
用SQL命令嵌套查询

是的。一句 Update-SQL 语句可以搞点。