你不是说运行了程序结果是0.00吗?
我的意思就是想看看你运行的程序是什么。

运行的程序为下列代码：
DECLARE long sscanf IN msvcr71 long, string, single@, long@
DECLARE long strcpy IN msvcr71 string@, string
USE C:\_temp\gwmxz.dbf ALIAS td
buffer = REPLICATE(0h00,256)
REPLACE ALL 合计 WITH f_合计(购物明细) IN "td"
SELECT * FROM td

FUNCTION f_合计(c购物明细)
    p = strcpy(@buffer, 购物明细)
    a = 0.00
    n = 0
    t = 0
    DO WHILE SYS(2600,p,1) != 0h00
        IF sscanf(p,"%f%n",@a,@n) == 1
            p = p+n
            IF SYS(2600,p,2)=="元"
                t = t+a
                p = p+2
            ENDIF
        ELSE
            p = p+1
        ENDIF
    ENDDO
    RETURN t
ENDFUNC

可以计算的，有结果哈

[此贴子已经被作者于2025-10-17 07:20编辑过]

“C:\_temp\gwmxz.dbf”这个你也用得着?
我出的代码通常只是作参考不能照抄，一定要先看懂思路，不明之处可以继续讨论。

更正一下
FUNCTION f_合计(c购物明细)
    p = strcpy(@buffer, 购物明细)
改为：
FUNCTION f_合计(c购物明细)
    p = strcpy(@buffer, c购物明细)

只针对这个数据表也可以：
FUNCTION f_合计(c购物明细)
    p = strcpy(@buffer, 购物明细)
改为：
FUNCTION f_合计()
    p = strcpy(@buffer, 购物明细)
调用：
REPLACE ALL 合计 WITH f_合计() IN "td"

[此贴子已经被作者于2025-10-17 07:29编辑过]