求，列出每列小于3的列 - VFP论坛

| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛 |

编程论坛 → 数据库技术 → 『 VFP论坛』 → 求，列出每列小于3的列

我的收件箱(0)

共有 4401 人关注过本帖

标题：求，列出每列小于3的列

只看楼主加入收藏

杂七杂八

等　级：新手上路
帖　子：217
专家分：7
注　册：2018-2-20
结帖率：96%

楼主

已结贴√ 问题点数：20 回复次数：18

求，列出每列小于3的列

求助，1、查询一个人每列小于3的列，行吗？
2、查询出所有小于3的列,能做到吗？

bb.rar (281 Bytes)

谢谢！

搜索更多相关主题的帖子: 查询　小于　一个人　每列　

2021-07-29 18:01

sdta

来　自：江苏省连云港市
等　级：版主
威　望：335
帖　子：9855
专家分：27275
注　册：2012-2-5

第 2 楼

得分:0

判断最小值是否小于3即可

坚守VFP最后的阵地

2021-07-29 19:29

杂七杂八

等　级：新手上路
帖　子：217
专家分：7
注　册：2018-2-20

第 3 楼

得分:0

回复 2楼 sdta

谢谢，我没表达清楚，是这个意思：查某人Y1至Y12中有几个小于3的列就列出几个列
如张三：Y3,Y4
赵七：Y2,Y3,Y8,Y10,Y11

2021-07-29 19:58

sdta

来　自：江苏省连云港市
等　级：版主
威　望：335
帖　子：9855
专家分：27275
注　册：2012-2-5

第 4 楼

得分:0

为空是不是小于3

坚守VFP最后的阵地

2021-07-29 22:08

sdta

来　自：江苏省连云港市
等　级：版主
威　望：335
帖　子：9855
专家分：27275
注　册：2012-2-5

第 5 楼

得分:0

程序代码：

CLEAR 
CLOSE DATABASES
USE bb
SCAN 
    lcStr = ALLTRIM(xm)
    FOR lnj = 2 TO FCOUNT()
        IF BETWEEN(EVALUATE(FIELD(lnj)), 1, 2)
            lcStr = lcStr + ", " + FIELD(lnj)
        ENDIF 
    ENDFOR
    ? lcStr
ENDSCAN
BROWSE

坚守VFP最后的阵地

2021-07-29 22:13

杂七杂八

等　级：新手上路
帖　子：217
专家分：7
注　册：2018-2-20

第 6 楼

得分:0

想要结果是

图片附件: 游客没有浏览图片的权限，请登录或注册

谢谢

2021-07-30 06:20

schtg

来　自：Usa
等　级：贵宾
威　望：67
帖　子：2312
专家分：4825
注　册：2012-2-29

第 7 楼

得分:0

回复 6楼杂七杂八

5楼正解！

图片附件: 游客没有浏览图片的权限，请登录或注册

2021-07-30 06:36

sdta

来　自：江苏省连云港市
等　级：版主
威　望：335
帖　子：9855
专家分：27275
注　册：2012-2-5

第 8 楼

得分:0

程序代码：

CLEAR 
CLOSE DATABASES 
USE C:\Users\Administrator\Desktop\bb\bb IN 0 && 路径自己设置
SCAN 
    lcStr = 'xm'
    lcXm = ALLTRIM(xm)
    FOR lnj = 2 TO FCOUNT()
        IF BETWEEN(EVALUATE(FIELD(lnj)), 1, 2)
            lcStr = lcStr + ", " + FIELD(lnj)
        ENDIF 
    ENDFOR
     BROWSE FIELDS &lcStr FOR ALLTRIM(xm) == lcxm
ENDSCAN