由于今年中考政策的录取批次作了调整，下面一样的代码  
    SELECT jh
    SEEK tmplqmd.xxdm
    IF FOUND()
      REPLACE jh.xxmc WITH IIF('*'$jh.xxmc,ALLTRIM(jh.xxmc),ALLTRIM(jh.xxmc)+'*')
    ENDIF
jh表是有索引的，运行正常，将表单另存为另一个批的表单，只是不同批次而修改了相应的工作目录，运行到SEEK　时，提示没有索引而终止。
非常的不可思议！！！　360杀毒也没有。

问大侠们，是何故呀？？？

不存在用法错误。
一模一样，在另一个表单中运行正常

更为奇怪的是：在录取的循环中，是在循环了数次后中断，出现表无索引的提示的。这JH表是有索引的。
我这中招录取的程序是用了好几年的，这个用法是没错的。

通过更细仔细细……细的比对二个表单，终于找到原因了。
这JH表虽有索引，当表单另存为另一个批次的表单后，为了更换数据环境中的表对应的目录，少了一项指定排序。

那SEEK的用法是没错的，可以是另一表的字段，也可以是变量。那用法是表示在别名为JH的表中搜索XXDM。

[ 本帖最后由 xs591222 于 2012-5-1 20:21 编辑 ]

谢谢SDTA。
昨天和今天，我都在弄这录取的程序。终于解决了问题
再次感谢！

【名称】
    SEEK命令
【类别】
    命令
【描述】
    在表中搜索首次出现的一个记录，这个记录的索引关键字必须与指定的表达式匹配。
【原形】
    SEEK eExpression [ORDER nIndexNumber | IDXIndexFileName
    |[TAG] TagName [OF CDXFileName][ASCENDING | DESCENDING]]
    [IN nWorkArea | cTableAlias]
【参数】
    eExpression
    指定 SEEK 搜索的索引关键字。eExpression可以是空字符串。
    ORDER nIndexNumber
    指定用来搜索关键字的索引文件或索引标识编号。nIndexNumber 指出了索引文件在 USE 和 SET INDEX命令中列出的编号。首先，按照 USE 或 SET INDEX中的顺序对打开的 .IDX 文件进行编号。然后，对结构.CDX文件（如果存在）中的标识进行编号，其顺序与创建它们的顺序相同。最后，对所有打开的独立 .CDX文件进行编号，其顺序也与创建的顺序相同。
    ORDER IDXIndexFileName
    指定一个用来搜索关键字的 .IDX 文件。
    ORDER [TAG] TagName [OF CDXFileName]
    指定用来搜索索引关键字的 .CDX文件中的标识。标识名称可能在一个 .CDX结构文件中，也可以在任何其他打开的独立 .CDX文件中。如果在几个打开的独立 .CDX文件中存在相同标识名称，则应使用 OF CDXFileName指出包含所用标识的 .CDX 文件。附注如果存在相同的 .IDX 文件和标识名称时，.IDX文件具有优先权。
    ASCENDING
    指定按升序搜索表。
    DESCENDING
    指定按降序搜索表。
    IN nWorkArea
    指定要搜索的表所在的工作区编号。
    IN cTableAlias
    指定要搜索的表的别名。如果省略了 IN nWorkArea 和 IncTableAlias，则在当前选定的工作区中搜索。
【返回值】
    无
【示例】
    无

 

SEEK命令的说明如上，但朋友送我的程序是用了好几年的，且完全正确的。

中招录取后，我再做另一程序，用考生的根据公布的分数线判断自己该不该录取的思维方式，来检验录取的结果正确后，再对外公布的。

在招生计划库“JH”中有XXDM字段，建立索引。tmplqmd.xxdm是临时录取名单库的XXDM－学校代码字段。里面是一个4位的代码，如“3304”
在JH中字段XXDM中有1101－－5402等的招生专业代码。
sele jh
SEEK　tmplqmd.xxdm　即为:在JH表中按索引字段进行搜索。
实践证明用法是正确的。