请问楼主：在你的规则中，58.0与58那个大

有这个就行了，谢谢！

一样大

表发错了，最后6行是结果的其他统计，不在所求问题中，麻烦了，谢谢！

VFP9.0代码
            IF ISDIGIT(&a4) = .T.
                DO CASE
                    CASE TRIM(ALLTRIM(&a4), ".0") > TRIM(cStr, ".0")
                        REPLACE (a1) WITH a1
                    CASE TRIM(ALLTRIM(&a4), ".0") < TRIM(cStr, ".0")
                        REPLACE (a2) WITH a2
                    CASE TRIM(ALLTRIM(&a4), ".0") == TRIM(cStr, ".0")
                        REPLACE (a3) WITH a3
                ENDCASE
                cStr = ALLTRIM(&a4)
            ENDIF

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

上一次我回复的，把字段弄错了，调整一个字段就可以了

谢谢以上各位了！

SELECT * FROM 大小比较.DBF WHERE TYPE(pdzj)="N" INTO TABLE dx.dbf
use dx.dbf
Blank Fields pdzjd, pdzjx, pdzjt All
GO TOP
PRIVATE X
X=""
SCAN
X1=IIF(pdzj>X,[REPLACE pdzjd WITH "大"],(IIF(pdzj<X,[REPLACE pdzjx WITH "小"],[REPLACE pdzjt WITH "同"])))
&X1
X=pdzj
ENDSCAN
SELECT 大小比较.jnh, 大小比较.pdzj, Dx.pdzjd, Dx.pdzjx, Dx.pdzjt FROM 大小比较 LEFT OUTER JOIN dx ON  大小比较.jnh = Dx.jnh INTO TABLE dx1.dbf
REPLACE ALL pdzjd WITH "" FOR ISNULL(pdzjd)  &&替换.NULL.
REPLACE ALL pdzjx WITH "" FOR ISNULL(pdzjx)  &&替换.NULL.
REPLACE ALL pdzjt WITH "" FOR ISNULL(pdzjt)  &&替换.NULL.
BROWSE