| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 3968 人关注过本帖
标题:求,列出每列小于3的列
只看楼主 加入收藏
wengjl
Rank: 14Rank: 14Rank: 14Rank: 14
等 级:贵宾
威 望:109
帖 子:2215
专家分:3882
注 册:2007-4-27
收藏
得分:0 
我关心这样的统计有什么用途?

只求每天有一丁点儿的进步就可以了
2021-07-30 10:27
wengjl
Rank: 14Rank: 14Rank: 14Rank: 14
等 级:贵宾
威 望:109
帖 子:2215
专家分:3882
注 册:2007-4-27
收藏
得分:0 

只求每天有一丁点儿的进步就可以了
2021-07-30 10:44
杂七杂八
Rank: 1
等 级:新手上路
帖 子:217
专家分:7
注 册:2018-2-20
收藏
得分:0 
回复 9楼 sdta
真诚致歉!我的表述
真心感谢!你的代码
2021-07-30 18:10
杂七杂八
Rank: 1
等 级:新手上路
帖 子:217
专家分:7
注 册:2018-2-20
收藏
得分:0 
回复 10楼 吹水佬
谢谢!看来,不可能全部列出在一个表中,只能逐条显示。
2021-07-30 18:13
杂七杂八
Rank: 1
等 级:新手上路
帖 子:217
专家分:7
注 册:2018-2-20
收藏
得分:0 
回复 11楼 wengjl
查询出全年某一个人低于3的月份,为以后改进提供数据说明。
2021-07-30 18:18
杂七杂八
Rank: 1
等 级:新手上路
帖 子:217
专家分:7
注 册:2018-2-20
收藏
得分:0 
能改用VFP6.0的代码吗?
2021-07-30 18:19
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9841
专家分:27213
注 册:2012-2-5
收藏
得分:20 
VFP6.0代码
程序代码:
CLOSE DATABASES 
CREATE CURSOR test (xm c(8), y1 n(2), y2 n(2), y3 n(2), y4 n(2), y5 n(2), y6 n(2), y7 n(2), y8 n(2), y9 n(2), y10 n(2), y11 n(2), y12 n(2))
USE C:\Users\Administrator\Desktop\bb\bb IN 0
SELECT bb
SCAN 
    lcStr = 'xm'
    lcXm = ALLTRIM(xm)
    FOR lnj = 2 TO FCOUNT()
        IF BETWEEN(EVALUATE(FIELD(lnj)), 1, 2)
            lcStr = lcStr + ", " + FIELD(lnj)
        ENDIF 
    ENDFOR
    SELECT &lcStr FROM bb WHERE ALLTRIM(xm) == lcxm INTO CURSOR temp
    SELECT test
    APPEND FROM DBF("temp")
ENDSCAN
USE IN temp
SELECT test
BROWSE 


坚守VFP最后的阵地
2021-07-30 20:03
吹水佬
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:451
帖 子:10608
专家分:43186
注 册:2014-5-20
收藏
得分:0 
图片附件: 游客没有浏览图片的权限,请 登录注册

程序代码:
ret = "Y1:Y2:Y3:Y4:Y5:Y6:Y7:Y8:Y9:Y10:Y11:Y12:"
ret2 = ret
SELECT *, SPACE(70) 低于3 FROM bb INTO CURSOR tmp READWRITE 
SCAN 
    ret1 = ret
    FOR i=1 TO 12
        cf = "Y"+TRANSFORM(i)
        ny = EVALUATE(cf)
        IF ny < 3
            ret1 = STRTRAN(ret1, cf+":", ","+cf+":"+TRANSFORM(ny))
        ELSE
            ret1 = STRTRAN(ret1, cf+":", "")
            IF AT(cf+":",ret2) > 0
                ret2 = STRTRAN(ret2, cf+":", "")
            ENDIF
        ENDIF
    ENDFOR
    REPLACE 低于3 WITH SUBSTR(ret1,2)
ENDSCAN
INSERT INTO tmp (xm,低于3) VALUES ("所有人", TRIM(ret2,":"))
SELECT * FROM tmp
RETURN
2021-07-31 07:05
gs2536785678
Rank: 10Rank: 10Rank: 10
等 级:贵宾
威 望:45
帖 子:610
专家分:1784
注 册:2017-7-16
收藏
得分:0 
真象11楼朋友讲的,这样的统计,意义何在?
2021-07-31 13:16
快速回复:求,列出每列小于3的列
数据加载中...
 
   



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

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