| 网站首页 | 业界新闻 | 小组 | 交易 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
共有 138 人关注过本帖
标题:求非0的最小值
只看楼主 加入收藏
fdqzy
Rank: 1
等 级:新手上路
帖 子:205
专家分:0
注 册:2016-8-15
结帖率:80.95%
收藏
已结贴  问题点数:20 回复次数:5 
求非0的最小值
程序代码:
create cursor b1 (jnh N(2),m1 n(3),m2 n(3),m3 n(3),min n(3))
insert into b1 values (1,60,0,58,89,58)
insert into b1 values (2,0,0,58,89,58)
insert into b1 values (3,65,70,0,89,65)
insert into b1 values (4,60,0,0,89,60)

在m1、m2、m3中如何求非0的最小值(如字段min所显示)?
谢谢!
搜索更多相关主题的帖子: into 最小值 min values insert 
2021-02-15 19:11
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:242
帖 子:8369
专家分:21742
注 册:2012-2-5
收藏
得分:10 
程序代码:
create cursor b1 (jnh N(2),m1 n(3),m2 n(3),m3 n(3),m4 n(3),nmin n(3))
insert into b1 values (1,60,0,58,89,58)
insert into b1 values (2,0,0,58,89,58)
insert into b1 values (3,65,70,0,89,65)
insert into b1 values (4,60,0,0,89,60)
blank field nmin all 
scan
    lcstr = ""
    for lnj = 2 to fcount() - 1
        lcstr = lcstr + iif(empty(evaluate(field(lnj))), "", "," + transform(evaluate(field(lnj))))
    endfor
    lcstr = substr(lcStr, 2)
    replace nmin with min(&lcstr)
endscan
browse

坚守VFP最后的阵地
2021-02-15 19:33
fdqzy
Rank: 1
等 级:新手上路
帖 子:205
专家分:0
注 册:2016-8-15
收藏
得分:0 
回复 2楼 sdta
谢谢!
2021-02-16 07:56
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:242
帖 子:8369
专家分:21742
注 册:2012-2-5
收藏
得分:0 








程序代码:
create cursor b1 (jnh N(2),m1 n(3),m2 n(3),m3 n(3),m4 n(3),nmin n(3))
insert into b1 values (1,60,0,58,89,58)
insert into b1 values (2,0,0,58,89,58)
insert into b1 values (3,65,70,0,89,65)
insert into b1 values (4,60,0,0,89,60)
blank field nmin all
scan
    scatter fields m1, m2, m3, m4 to la
    asort(la)
    for lnj = 1 to alen(la, 1)
        if la[lnj] != 0 
            replace nmin with la[lnj]
            exit
        endif
    endfor
endscan
browse

坚守VFP最后的阵地
2021-02-16 12:07
fdqzy
Rank: 1
等 级:新手上路
帖 子:205
专家分:0
注 册:2016-8-15
收藏
得分:0 
以下是引用sdta在2021-2-16 12:07:40的发言:









create cursor b1 (jnh N(2),m1 n(3),m2 n(3),m3 n(3),m4 n(3),nmin n(3))
insert into b1 values (1,60,0,58,89,58)
insert into b1 values (2,0,0,58,89,58)
insert into b1 values (3,65,70,0,89,65)
insert into b1 values (4,60,0,0,89,60)
blank field nmin all
scan
    scatter fields m1, m2, m3, m4 to la
    asort(la)
    for lnj = 1 to alen(la, 1)
        if la[lnj] != 0
            replace nmin with la[lnj]
            exit
        endif
    endfor
endscan
browse

谢谢!
2021-02-16 14:38
schtg
Rank: 10Rank: 10Rank: 10
等 级:贵宾
威 望:50
帖 子:965
专家分:1541
注 册:2012-2-29
收藏
得分:10 
学习啦,谢谢!
2021-02-17 07:10
快速回复:求非0的最小值
数据加载中...
 
   



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

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