| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 4523 人关注过本帖
标题:大小比较问题
只看楼主 加入收藏
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9841
专家分:27213
注 册:2012-2-5
收藏
得分:0 
请问楼主:在你的规则中,58.0与58那个大

坚守VFP最后的阵地
2020-01-02 11:34
fdqzy
Rank: 1
等 级:新手上路
帖 子:368
专家分:0
注 册:2016-8-15
收藏
得分:0 
回复 20楼 sdta
有这个就行了,谢谢!
2020-01-02 12:13
fdqzy
Rank: 1
等 级:新手上路
帖 子:368
专家分:0
注 册:2016-8-15
收藏
得分:0 
以下是引用sdta在2020-1-2 11:34:57的发言:

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

一样大
2020-01-02 12:14
fdqzy
Rank: 1
等 级:新手上路
帖 子:368
专家分:0
注 册:2016-8-15
收藏
得分:0 
以下是引用sdta在2020-1-2 11:34:57的发言:

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

表发错了,最后6行是结果的其他统计,不在所求问题中,麻烦了,谢谢!
2020-01-02 12:19
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9841
专家分:27213
注 册:2012-2-5
收藏
得分:0 
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
图片附件: 游客没有浏览图片的权限,请 登录注册

坚守VFP最后的阵地
2020-01-02 12:22
fown
Rank: 9Rank: 9Rank: 9
等 级:贵宾
威 望:58
帖 子:1229
专家分:171
注 册:2005-5-26
收藏
得分:0 
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

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

有人说VFP不行了,我想说,你连VFP十分之一的功能都不会用,你怎么知道VFP不行?本人拒绝回答学生的问题我回答问题一般情况下只提供思路不提供代码,请理解
2020-01-02 13:44
fdqzy
Rank: 1
等 级:新手上路
帖 子:368
专家分:0
注 册:2016-8-15
收藏
得分:0 
谢谢以上各位了!
2020-01-03 12:14
fsbhdl
Rank: 1
等 级:新手上路
威 望:2
帖 子:7
专家分:8
注 册:2019-2-12
收藏
得分:0 
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
2020-01-08 12:28
快速回复:大小比较问题
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.033841 second(s), 9 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved