SET TALK OFF
CLOSE TABLES ALL
SET DELETED ON

USE f:\评估\VFP\保单信息20121231.dbf IN 0 ALIAS 保单信息20121231

SELECT 保单信息20121231

SCAN
    DO CASE
        CASE 产品代码="00110100" OR 产品代码="00112500"
            REPLACE 有效保额 WITH MAX(基本保额*(1+保单年度*0.05),年保费*MIN(保单年度,交费期限))
        
        CASE INLIST(产品代码,"00126600","00321500","00231000")  
            REPLACE 有效保额 WITH 基本保额
        OTHERWISE
            SELECT 保单信息20121231
        
    ENDCASE
ENDSCAN

REPLACE ALL 风险保额2 WITH MAX(有效保额,基本保额)-未到期责任 FOR !EMPTY(有效保额)
 

SET DELETED OFF
CLOSE TABLES ALL
SET TALK ON



一跑就出现nesting error
看了下帮助，scan 也有endscan，do case也有endcase
不知道哪里错了？

上传表看看

[ 本帖最后由 sdta 于 2013-4-16 15:13 编辑 ]

虽然不知道你的表文件数据，也不知道你程序的意义。但是，凭直觉，问题出在第一个REPLACE和最后一个REPLACE的MAX()、MIN()函数上。这两个函数在普通场合和SELECT-SQL场合意义是不同的：在普通场合，仅仅对函数括号中的各表达式结果取最大/最小值，没有扫描表文件记录的作用；而在SELECT-SQL中，这两个函数有扫描表文件记录的作用，且失去了普通场合中的作用，而且不能嵌套使用。我看你第一个REPLACE中的MIN()和最后一个REPLACE中的MAX()，好像都是用于扫描表文件记录，从而找出最小/最大值。若真的这样，问题就出在这里。不知道我的猜测是否正确。

表太大了，2个G差不多。

应该不是这个问题，我平时在command里面用命令都是直接 产品代码=“123456789”这样子的

这代码看不出什么问题，放大范围，检查下其它代码。

取100条记录看看，保人姓名可以清空

对不住大家了，我找出原因了，程序中少了几个括号，还有个if 没有endif
不好意思让大家帮我看了。

另外能否再问一个问题，如果有很多case要写，有没有什么简便的方法来的？

SCAN
    DO CASE  
        CASE ALLTRIM(产品代码)=="00110100" OR ALLTRIM(产品代码)=="00112500"
            REPLACE 有效保额 WITH MAX(基本保额*(1+保单年度*0.05),年保费*MIN(保单年度,交费期限))
         
        CASE INLIST(ALLTRIM(产品代码),"00126600","00321500","00231000")   
            REPLACE 有效保额 WITH 基本保额
        OTHERWISE
            SELECT 保单信息20121231
         
    ENDCASE  
ENDSCAN

以上的可以写成这样
REPLACE all 有效保额 WITH MAX(基本保额*(1+保单年度*0.05),年保费*MIN(保单年度,交费期限)) for ALLTRIM(产品代码)=="00110100" OR ALLTRIM(产品代码)=="00112500"  in 保单信息20121231
REPLACE all 有效保额 WITH 基本保额 for INLIST(ALLTRIM(产品代码),"00126600","00321500","00231000") in 保单信息20121231

我用临时表测试过楼主的代码，没有报错。应该是其他的问题吧？

可改为(vfp9)

REPLACE ALL 有效保额 WITH ICASE(INLIST(ALLTRIM(产品代码),"00110100","00112500"),MAX(基本保额*(1+保单年度*0.05),年保费*MIN(保单年度,交费期限)),INLIST(ALLTRIM(产品代码),"00126600","00321500","00231000"),基本保额,0)