对表字段pdzj的上下两数字比较大小，在对应的行填上“大、小、同”,见表:

谢谢！

一，你给的示例当中有错误吧，其中你的比较值为1，而在小的字段中，竟然出现了值相等显示 小字，这个没看懂，我估计是你做数据的时候搞错了。
二，下图是否是你要的结果？

基本思路：
获取字段值，转为数值型，大于0时，记为x
然后继续获取下一记录的，转为数值型，大于0时，记为y
判断x与y的大小，赋值字段值为“大” 或“小”或“同”，此时x=y
继续获取下一记录的值，转为数值型，直到大于0时，判断大小，如法炮制，直到末记录。
不知我的理解对否？请你判断。

[此贴子已经被作者于2020-1-1 20:32编辑过]

CLOSE DATABASES 
USE 大小比较
BLANK FIELDS pdzjd, pdzjx, pdzjt ALL 
ok = .F.
SCAN 
    IF ok = .F.
        IF ISDIGIT(Pdzj) = .T.
            cStr = ALLTRIM(Pdzj)
            ok = .T.
        ENDIF
    ELSE
        IF ISDIGIT(Pdzj) = .T.
            DO CASE
                CASE ALLTRIM(Pdzj) == cStr
                    REPLACE Pdzjt WITH "同"
                CASE ALLTRIM(Pdzj) > cStr
                    REPLACE Pdzjd WITH "大"
                CASE ALLTRIM(Pdzj) < cStr
                    REPLACE Pdzjx WITH "小"
            ENDCASE
            cStr = ALLTRIM(Pdzj)
        ENDIF
    ENDIF  
ENDSCAN
BROWSE 

第一、我很开心。不管你的思路是否是最佳思路，现在比十几年前我在论坛上看到的那种要代码的现象好很多，最少您是在思考，我欣赏。
第二、就我个人看等您所提出的问题而言，我个人认为，您的思路并非最佳思路。
第三、这个问题REPLACE就可以搞定，我测试了，不用那么复杂，三行代码就可以。当然，如果您用自己的方法可以实现，而且数据量不大的话，用自己的方法记忆 会更加深刻，我并不反对。但如果记录过多，比如我现在写了个软件，几千个表，字段就将近十万个，记录一动就是几百万条，那就要考虑运行速度的问题了，因为那时候，需要你一秒一秒的去优化的你代码。
第四、你再思考一下，如果确实思路上无法再精炼，我给一个我的方法，供您参考。

[此贴子已经被作者于2020-1-1 20:53编辑过]

不好意思，看错题目了，我以为用第一条记录为被比较记录。。。。。所以代码是以第一条记录为被比较记录写的
GO 1
X=pdzj

REPLACE ALL pdzjd  WITH "大" FOR ASC(pdzj)<57 AND  ASC(pdzj)>ASC(x)
REPLACE ALL pdzjx  WITH "小" FOR ASC(pdzj)<57 AND  ASC(pdzj)<ASC(x) AND  ASC(ALLTRIM(pdzj))>0
REPLACE ALL pdzjt  WITH "同" FOR ASC(pdzj)<57 AND  ASC(pdzj)=ASC(x)
BROWSE

表结构优化一下，算法可能更简单有效些
ALINES(a,"d,大,x,小,t,同",",")
DIMENSION a[3,2]
USE 大小比较
BLANK FIELDS pdzjd, pdzjx, pdzjt ALL
GO TOP
LOCATE FOR ISDIGIT(Pdzj)
m = Pdzj
SKIP
COUNT REST FOR fun()
SELECT * FROM 大小比较
RETURN

FUNCTION fun()
    IF ISDIGIT(Pdzj)
        i = IIF(Pdzj>m,1,IIF(Pdzj<m,2,3))
        REPLACE ("pdzj"+a[i,1]) WITH a[i,2]
        m = Pdzj
    ENDIF
ENDFUNC

[此贴子已经被作者于2020-1-1 22:10编辑过]

厉害了，把所有的版主都 调动起来了，嘿嘿


Use 大小比较
Blank Fields pdzjd, pdzjx, pdzjt All
Go 1
X=Alltrim(pdzjd)
Scan  For  Asc(Alltrim(pdzjd))<57 And Asc(Alltrim(pdzjd))>0
    A=Icase(Asc(Alltrim(pdzjd))>Asc(X),[REPLACE  pdzjd  WITH '大'],Asc(Alltrim(pdzjd))<Asc(X),[REPLACE  pdzjx  WITH '小'],[REPLACE  pdzjt  WITH '同'])
    &A
    X=Alltrim(pdzjd)
Endscan
Browse

Use 大小比较
Blank Fields pdzjd, pdzjx, pdzjt All
Go 1
X=Alltrim(pdzjd)
Scan  For  Asc(Alltrim(pdzjd))<57 And Asc(Alltrim(pdzjd))>0
    A=Icase(Asc(Alltrim(pdzjd))>Asc(X),[REPLACE pdzjd WITH '大'],Asc(Alltrim(pdzjd))<Asc(X),[REPLACE pdzjx WITH '小'],[REPLACE pdzjt WITH '同'])
    &A
    X=Alltrim(pdzjd)
Endscan
Browse

我刚知道，还有这个直接弄代码的功能。。。。。。