下列程序在运行中出现的错误提示，现将程序贴上，请高手赐教，万分感谢！！！


CLOSE DATABASES
CLEAR ALL
cPath=ADDBS(JUSTPATH(SYS(16)))
SET DEFAULT TO (cPath)

ALINES(cj,"早,中,晚",",")
ALINES(nj,"5,5,3.5",",")
* SELECT *,fun1("早") 早班,fun1("中") 中班,fun1("晚") 晚班, fun2() hj FROM kqb
                                                 && 在"查询"中显示统计结果
SELECT 姓名,fun1("早") 早班,fun1("中") 中班,fun1("晚") 晚班, fun2() hj FROM kqb INTO TABLE tongji
                                              && 在新表tongji.dbf中显示统计结果
BROWSE

FUNCTION fun1(cj) && 统计早、中、晚班个数
LOCAL i,ret1
ret1 = 0
FOR i=2 TO FCOUNT()
    IF ALLTRIM(EVALUATE(FIELD(i)))==cj
        ret1=ret1+1
    ENDIF
ENDFOR
RETURN ret1
ENDFUNC

FUNCTION fun2() && 统计每个人餐补费用
LOCAL i,ret2
ret2 = 0
FOR i=2 TO FCOUNT()
    ret2= ret2 + VAL(nj[ASCAN(cj,EVALUATE(FIELD(i)))])
ENDFOR
RETURN ret2
ENDFUNC

1 如果不改表结构代码如下
    ret2= ret2 + VAL(nj[ASCAN(cj,ALLTRIM(EVALUATE(FIELD(i))))])
2 如果改表结构代码不修改

[此贴子已经被作者于2023-4-11 15:54编辑过]

@sdta 谢谢！按照你的方法问题已完美解决。